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1. INTRODUCTION 

The standard CP/M system assumes operation on an Intel MDS-800 
microcomputer development system, but is designed so that the user can 
alter a specific set of subroutines which define the hardware 
operating environment. In this way, the user can produce a diskette 
which operates with any IBM-3'741 format compatible drive controller 
and other peripheral devices. 

Altnough standard CP/M 2.0 is configured for single density floppy 
disks, field-alteration features allow adaptation to a wide variety of 
disk subsystems from single drive minidisks through high-capacity 
"hard disk" systems. In order to simplify the following adaptation 
process, we assume that CP/M 2.0 will first be configured for single 
density floppy disks where minimal editing and debugging tools are 
available. If an earlier version of CP/M is available, the 

customizing process is eased considerably. In this latter case, you 
may wisn to briefly review the system generation process, and skip to 
later sections which discuss system alteration for non-standard disk 
systems . 

In order to achieve device independence, CP/M is separated into 
tnree distinct modules: 

BIOS - oasic I/O system which is environment dependent 
BOOS - basic disk operating system which is not dependent 

upon the hardware configuration 
CCP - the console command processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular 
hardware. That is, the user can "patch" the distribution version of 
CP/M to provide a new BIOS which provides a customized interface 
between the remaining CP/M modules and the user's own hardware system. 
The purpose of this document is to provide a step-by-step procedure 
for patching your new BIOS into CP/M. 



If CP/M is being tailored to your computer system for the first 
time, the new BIOS requires some relatively simple software 
development and testing. The standard BIOS is listed in Appendix B, 
and can be used as a model for the customized package. A skeletal 
version of the BIOS is given in Appendix C which can serve as the 
basis for a modified BIOS. In addition to the BIOS, the user must 
write a simple memory loader, called GETSYS , which brings the 
operating system into memory. In order to paten the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called PUTSYS, which 
places an altered version of CP/M back onto the diskette. PUTSYS can 
be derived from GETSYS by changing the disk read commands into disk 
write commands. Sample skeletal GETSYS and PUTSYS programs are 
described in Section 3, and listed in Appendix D. In order to make 
the CP/M system work automatically, the user must also supply a cold 
start loader, similar to the one provided with CP/M (listed in 
Appendices A and B) . A skeletal form of a cold start loader is given 
in Appendix E which can serve as a model for your loader. 
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2. FIRST LEVEL SYSTEM REGENERATION 



The procedure to follow to paten the CP/M system is given below in 
several steps. Address references in each step are shown with a 
following " H" which denotes the hexadecimal radix, and are given for a 
20K CP/M system. For larger CP/M systems, add a "bias" to each 
address which is shown with a "+b" following it, where b is equal to 
the memory size - 20K. Values for b in various standard memory sizes 
are 



24K, 


b = 


24K - 


20K = 


4K 




1000H 


32K- 


b = 


3 2K - 


20K = 


12K 




3000H 


40K 


: b = 


40K - 


20K = 


20K 




5000H 


4 8K 


: b = 


48K - 


20K = 


28K 




7000H 


5 6K 


: b = 


56K - 


20K = 


3 6K 




9000H 


62K 


: b = 


62K - 


20K = 


42K 




A800H 


6 4K 


: b = 


64K - 


20K = 


44K 




B000H 



Note: The standard distribution version of CP/M is set for 
operation within a 20K memory system. Therefore, you must first bring 
up the 20K CP/M system, and then configure it for your actual memory 
size (see Second Level System Generation). 

(1) Review Section 4 and write a GETSYS program which reads the 
first two tracks of a diskette into memory. The data from the diskette 
must begin at location 3380H. Code GETSYS so that it starts at 
location 100ri (oase of the TPA) , as shown in the first part of 
Appendix d. 

(2) Test tne GETSYS program by reading a blank diskette into 
memory, and check to see that the data has been read properly, and 
that the diskette has not been altered in any way by the GETSYS 
program . 

(3) Run the GETSYS program using an initialized CP/M diskette to 
see if GETSYS loads CP/M starting at 3380H (the operating system 
actually starts 128 bytes later at 3400H) . 

(4) Review Section 4 and write the PUTSYS program which writes 
memory starting at 3380H back onto the first two tracks of the 
diskette. The PUTSYS program should be located at 200H, as shown in 
the second part of Appendix D. 

(5) Test the PUTSYS program using a blank uninitialized diskette 
by writing a portion of memory to the first two tracks; clear memory 
and read it back using GETSYS. Test PUTSYS completely, since this 
program will be used to alter CP/M on disk. 

(6) Study Sections 5, 6, and 7, along with the distribution 
version of the BIOS given in Appendix B, and write a simple version 
which performs a similar function for the customized environment. Use 
the program given in Appendix C as a model. Call this new BIOS by the 
name CBIOS (customized BIOS) . Implement only the primitive disk 
operations on a single drive, and simple console input/output 
functions in this phase. 
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(7) Test CBIOS completely to ensure that it properly performs 
console character I/O and disk reads and writes. Be especially 
careful to ensure that no disk write operations occur accidently 
during read operations, and check that the proper track and sectors 
are addressed on all reads and writes. Failure to make these checks 
may cause destruction of the initialized CP/M system after it is 
patched. 

(3) Referring to Figure 1 in Section 5, note that the BIOS is 
placed between locations 4A00H and 4FFFH. Read the CP/M system using 
GETSYS and replace the BIOS segment by the new CBIOS developed in step 
(6) and tested in step (7). This replacement is done in the memory of 
the machine, and will be placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the 
first two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test 
diskette back into memory at 3380H, and check to ensure that it has 
loaded back properly (clear memory, if possible, before the load). 
Upon successful load, brancn to the cold start code at location 4A00H. 
The cold start routine will initialize page zero, then jump to the CCP 
at location 3400H which will call the BDOS, which will call the CBIOS. 
The CBIOS will be asked by the CCP to read sixteen sectors on track 2, 
and if successful, CP/M will type "A>", the system prompt. 

When you make it this far, you are almost on the air. If you have 
trouble, use whatever debug facilities you have available to trace and 
breakpoint your CBIOS. 

(11) Upon completion of step (10) , CP/M has prompted the console 
for a command input. Test the disk write operation by typing 

SAVE 1 X.COM 

(recall that all commands must be followed by a carriage return). 
CP/M should respond with another prompt (after several disk accesses) : 
A> 

If it does not, debug your disk write functions and retry. 

(12) Then test the directory command by typing 
DIR 

CP/M should respond with 
A: X COM 

(13) Test the erase command by typing 
ERA X.COM 
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CP/M should respond with the A prompt. When you make it this far, you 
should have an operational system which will only require a bootstrap 
loader to ^function completely . 

(14) Write a bootstrap loader which is similar to GETSYS , and 
place it on track 0, sector 1 using PUTSYS (again using the test 
diskette, not the distribution diskette) . See Sections 5 and 8 for 
more information on the bootstrap operation. 

(15) Retest the new test diskette with the bootstrap loader 
installed by executing steps (11) , (12) , and (13) . Upon completion of 
these tests, type a control-C (control and C keys simultaneously) . The 
system should then execute a "warm start" which reboots the system, 
and types the A prompt. 

(16) At this point, you probably have a good version of your 
customized CP/M system on your test diskette. Use GETSYS to load CP/M 
from your test diskette. Remove the test diskette, place the 
distribution diskette (or a legal copy) into the drive, and use PUTSYS 
to replace the distribution version by your customized version. Do 
not make this replacement if you are unsure of your patch since this 
step destroys the system which was sent to you from Digital Research. 

(17) Load your modified CP/M system and test it by typing 
DIR 

CP/M should respond with a list of files which are provided on the 
initialized diskette. One such file should be the memory image for 
the debugger, called DDT.COM. 

iSIOTE : from now on, it is important that you always reboot the CP/M 
system (ctl-C is sufficient) when the diskette is removed and replaced 
by anotner diskette, unless the new diskette is to be read only. 

(18) Load and test the debugger by typing 
DDT 

(see the document " CP/M Dynamic Debugging Tool (DDT)" for operating 
procedures. You should take the time to become familiar with DDT, it 
will be your best friend in later steps. 

(19) Before making further CBIOS modifications, practice using 
the editor (see the ED user's guide), and assembler (see the ASM 
user's guide). Then recode and test the GETSYS, PUTSYS , and CBIOS 
programs using ED, ASM, and DDT. Code and test a COPY program which 
does a sec tor-to-sector copy from one diskette to another to obtain 
pack-up copies of the original diskette (NOTE: read your CP/M 
Licensing Agreement; it specifies your legal responsibilities when 
copying the CP/M system) . Place the copyright notice 

Copyright (c) , 1979 
Digital Research 
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on each copy which is made with y° ur COPY program. 

(20) Modify your CBIOS to include the extra functions for 
punches, readers, signon messages, and so-forth, and add the 
facilities for a additional disk drives, if desired. You can make 
these changes with the GETSYS and PUTSYS programs which you have 
developed, or you can refer to the following section, which outlines 
CP/M facilities which will aid you in the regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have developed belongs to 
you, the modified version of CP/M which you have created can be copied 
for your use only (again, read your Licensing Agreement) , and cannot 
be legally copied for anyone else's use. 

It should be noted that your system remains file-compatible with all 
other CP/M systems, (assuming media compatiblity , of course) which 
allows transfer of non-proprietary software between users of CP/M. 
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3. SECOND LEVEL SYSTEM GENERATION 

Now that you have the CP/M system running, you will want to 
configure CP/M for your memory size. In general, you will first get a 
memory image of CP/M with the "MOVCPM" program (system relocator) and 
place this memory image into a named disk file. The disk file can then 
be loaded, examined, patched, and replaced using the debugger, and 
system generation program. For further details on the operation of 
these programs, see the "Guide to CP/M Features and Facilities" 
manual. 

Your C8IOS and BOOT can be modified using ED, and assembled using 
ASM, producing files called CBIOS.HEX and BOOT. HEX, which contain the 
machine code for CBIOS and BOOT in Intel hex format. 

To get the memory image of CP/M into the TPA configured for the 
desired memory size, give the command: 

MOVCPM xx * 

where "xx" is the memory size in decimal K bytes (e.g. , 32 for 32K) . 
The response will oe: 

CONSTRUCTING xxK CP/M VERS 2.0 
READY FOR "SYSGEN" OR 
"SAVE 34 CPMxx.COM" 



At this point, an image of a CP/M in the TPA configured for the 
requested memory size. The memory image is at location 0900H through 
227FH. (i.e., The BOOT is at 0900H, the CCP is at 980H, the BDOS 
starts at 1180H, and the BIOS is at 1F80H.) Note that the memory 
image has the standard MDS-800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch 
your CBIOS and C300T into it: 

SAVE 3 4 CPMxx.COM 

The memory image created by the "MOVCPM" program is offset by a 
negative bias so that it loads into the free area of the TPA, and thus 
does not interfere with the operation of CP/M in higher memory. This 
memory image can be subsequently loaded under DDT and examined or 
changed in preparation for a new generation of the system. DDT is 
loaded with the memory image by typing: 

DDT CPMxx.COM Load DDT, then read the CP 

image 

DDT should respond with 

NEXT PC 
2300 0100 

- (The DDT prompt) 

You can then use the display and disassembly commands to examine 
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portions of the memory image between 900H and 227FH. Note, however, 
that to find any particular address within the memory image, you must 
apply tne negative bias to the CP/M address to find the actual 
address. Track 00, sector 01 is loaded to location 900H (you should 
find the cold start loader at 900H to 97FH) , track 00, sector 02 is 
loaded into 980H (this is the base of the CCP) , and so-forth through 
the entire CP/M system load. In a 20K system, for example, the CCP 
resides at the CP/M address 3400H, but is placed into memory at 980H 
by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

3400H + n = 980H, or n = 980H - 3400H 

Assuming two's complement arithmetic, n = D580H, which can be checked 
by 

3400H + D580H = 10980H = 0980H (ignoring high-order 

overflow) . 

Note that for larger systems, n satisfies 

(3400H+b) + n = 980H, or 
n = 980H - (3400H + b) , or 
n = D580H - b. 

The value of n for common CP/M systems is given below 



memory size 


bias b 


negative offset n 


20K 


0000H 


D580H - 


0000H = D580H 


24K 


10 00H 


D580H - 


1000H = C580H 


32K 


3000H 


D580H - 


3000H = A580H 


40K 


5000H 


D580H - 


5000H = 8580H 


4 8K 


7000H 


D580H - 


7000H = 6580H 


5 6K 


9000H 


D580H - 


9000H = 4580H 


62K 


A800H 


D580H - 


A800H = 2D80H 


6 4K 


B000H 


D580H - 


B000H = 2580H 



Assume, for example, that you want to locate the address x within the 
memory image loaded under DDT in a 20K system. First type 

Hx,n Hexadecimal sum and difference 

and DDT will respond with the value of x+n (sum) and x-n (difference) . 
The first number printed by DDT will be the actual memory address in 
the image where the data or code will be found. The input 

H3400,D580 

for example, will produce 980H as the sum, which is where the CCP is 
located in the memory image under DDT. 

Use the L command to disassemble portions the BIOS located at 
(4A00H+b)-n which, when you use the H command, produces an actual 
address of 1F80H. The disassembly command would thus be 
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L1F80 



It is now necessary to oaten in your CBOOT and CBIOS routines. The 
BOOT resides at location 0900H in the memory image. If the actual 
load address is "n", then to calculate the bias (m) use the command: 

H900,n Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias 
(m) . For example, if your BOOT executes at 0080H, tne command: 

H900,80 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m" would be 0880H. To read-in the BOOT, give the 
command: 

ICBOOT.HEX Input file CBOOT. HEX 

Then: 

Rm Read CBOOT with a bias of 

ra (=900H-n) 

You may now examine your CBOOT with: 
L900 

We are now ready to replace the CBIOS. Examine the area at 1F80H 
where the original version of the CBIOS resides. Then type 

ICBIOS.HEX Ready the "hex" file for loading 

assume that your CBIOS is being integrated into a 20K CP/M system, and 
thus is origined at location 4A00H. In order to properly locate the 
CBIOS in the memory image under DDT, we must apply the negative bias n 
for a 20K system when loading the hex file. This is accomplished by 
typing 

RD580 Read the file with bias D580H 

Upon completion of the read, re-examine the area where the CBIOS has 
been loaded (use an "I.1F80" command) , to ensure that is was loaded 
properly, when you are satisfied that the change has been made, 
return from DDT using a control-C or "G0" command. 

Now use SYSGEN to replace the patched memory image back onto a 
diskette (use a test diskette until you are sure of your patch) , as 
shown in the following interaction 
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SYSGEN Start the SYSGEN program 

SYSGEN VERSION 2.0 Sign-on message from S¥3GEN 

SOURCE DRIVE NAME (OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory. 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Respond with "B" to write the 
new system to the diskette in 
drive B. 

DESTINATION ON B, THEN TYPE RETURN 

Place a scratch diskette in 
drive B, then type return. 

FUNCTION COMPLETE 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Place the scratch diskette in your drive A, and then perform a 
colds tart to bring up the new CP/M system you have configured. 

Test the new CP/M system, and place the Digital Research copyright 
notice on the diskette, as specified in your Licensing Agreement: 

Copyright (c) , 1979 
Digital Research 
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4. SAMPLE GETSYS AND PUT SYS PROGRAMS 

The following program provides a framework for the GETSYS and 
PUTSYS programs referenced in Section 2. The READSEC and WRITES EC 
subroutines must be inserted by the user to read and write the 
specific sectors. 



GETSYS PROGRAM - READ TRACKS 0 AND 1 TO MEMORY AT 3380H 
REGISTER USE 



A 
B 
C 

DE 
HL 
SP 

START: LXI 
LXI 



RDTRK : 
RDSEC 



MVI 

MVI 

CALL 

LXI 

DAD 

INR 

MOV 

CP I 

JC 



(SCRATCH REGISTER) 
TRACK COUNT (0 , 1) 

SECTOR COUNT (1,2, ,26) 

(SCRATCH REGISTER PAIR) 

LOAD ADDRESS 

SET TO STACK ADDRESS 

SP,3380H ;SET STACK POINTER TO SCRATCH AREA 

H, 3 330H ;SET BASE LOAD ADDRESS 

B, 0 ; START WITH TRACK 0 

; READ NEXT TRACK (INITIALLY 0) 

C, l ; READ STARTING WITH SECTOR 1 

; READ NEXT SECTOR 
READSEC ; USER-SUPPLIED SUBROUTINE 

D, 128 ;MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 
D ;HL = HL + 128 

C ; SECTOR = SECTOR + 1 

A,C ; CHECK FOR END OF TRACK 
27 

RDSEC ; CARRY GENERATED IF SECTOR < 27 



ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A , B ;TEST FOR LAST TRACK 

CPI 2 

JC RDTRK ; CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
ADDRESS TO FILL IN HL 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 
POP 
RET 



; RECOVER HL 

; RECOVER B AND C REGISTERS 
; BACK TO MAIN PROGRAM 



END START 
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Note that this program is assembled and listed in Appendix C for 
reference purposes, with an assumed origin of 100H. The hexadecimal 
operation codes which are listed on the left may be useful if the 
program has to be entered through your machine's front panel switches. 

The PUTSYS program can be constructed from GETSYS by changing only 
a few operations in the GETSYS program given above, as shown in 
Appendix D. The register pair HL become the dump address (next 
address to write) , and operations upon these registers do not change 
within the program. The READSEC subroutine is replaced by a WRITESEC 
subroutine which performs the opposite function: data from address HL 
is written to the track given by register B and sector given oy 
register C. It is often useful to combine GETSYS and PUTSYS into a 
single program during the test and development phase, as shown in the 
Appendix . 
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5. DISKETTE ORGANIZATION 



The sector allocation for the standard distribution version of 
CP/M is given here for reference purposes. The first sector (see 
table on the following page) contains an optional software boot 
section. Disk controllers are often set up to bring track 0, sector 1 
into memory at a specific location (often location 0000H) . The 
program in this sector, called BOOT, has the responsibility of 
bringing the remaining sectors into memory starting at location 
3400H+b. If your controller does not have a built-in sector load, you 
can ignore the program in track 0, sector 1, and begin the load from 
track 0 sector 2 to location 3400H+b. 

As an example, the Intel MDS-800 hardware cold start loader brings 
track 0, sector 1 into absolute address 3000H. Upon loading this 
sector, control transfers to location 3000H, where the bootstrap 
operation commences by loading the remainder of tracks 0, and all of 
track 1 into memory, starting at 3400H+b. The user should note that 
this bootstrap loader is of little use in a non-MDS environment, 
although it is useful to examine it since some of the boot actions 
will have to be duplicated in your cold start loader. 
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Track # Sector# Page# Memory Address CP/M Module name 



0 0 


01 




(boot address) 


Cold Start Loader 


00 


02 


00 


3400H+D 


CCP 




03 


ii 


3480H+D 


■I 


■ i 


0 4 


01 


3500H+D 


ii- 


ll 


0 5 




3580H+D 

**/ / W JL/ L. X ■ **0 


ii 


„ 


0 6 


0 2 


3600H+D 

im* V/ JL/ Ky 11 1 *S 


.. 




07 


ii 


3680H+D 


■i 


il 


08 


03 


3700H+D 


•i 


■ ■ 


0 9 


■i 


3780H+D 


•i 


ll 


10 


04 


3800H+D 


■i 


ll 


11 


■i 


3880H+D 


■I 


ll 


12 


05 


3900H+b 

+S ~S v 1. X • K,/ 


.. 


• 1 


13 




3980H+b 


» 


ll 


14 


06 


3A00H+b 


•i 


II 


15 


ii 


3A80H+b 


ii 


.. 


16 


07 


3B0 0H+b 


M 


00 


17 


■I 


3B80H+b 


CCP 


00 


18 


08 


3C00H+b 


BDOS 




19 


■i 


3C80H+b 


ii 


II 


20 


09 


3D00H+b 


.. 


II 


21 




3D80H+b 


ii 


.. 


22 


10 


3E00H+O 


i. 


■ 1 


23 


ii 


3E80H+b 


.. 


I. 


24 


11 


3F00H+b 


ii 


II 


25 


ii 


3F80H+b 


ii 


I. 


26 


12 


4000H+D 


it 


01 


01 


ii 


4080H+b 


M 




02 


13 


4100H+b 


• 1 


ii 


0 3 




4180H+b 

A JL. W Jt/ L X * 


ll 


•i 


0 4 


14 


4200H+b 


ll 


■i 


05 




4280H+b 


ll 


•i 


0 6 


15 


4300H+b 


I. 


.. 


07 




4380H+b 


II 


.. 


08 


16 


4400H+b 


■ 1 


ii 


0 9 


■i 


4480H+b 

\J XJ Ll 1 KJ 


ll 


■t 


10 


17 


4500H+b 

T ^J XJ *J i J. 1 


II 


■• 


11 


ii 


4580H+b 


ll 


ii 


12 


18 


4600R+b 

A V \J XJ X ' KJ 


• 1 


■i 


13 




4680H+b 

-* \J v mJ JL J * *■/ 


II 


it 


14 


19 


4700H+b 


II 




15 


■i 


4780H+b 


ll 




16 


20 


4800H+b 




ii 


17 


ii 


4880H+b 


• 1 


•i 


18 


21 


4900H+b 


ll 


01 


19 


ii 


4980H+b 


BDOS 


0 1 


20 


22 


4A0 0H+b 

T. LX. XJ XJ 11 ■ %*J 


BIOS 


H 


21 


II 


4A80H+b 


ii 


ll 


23 


23 


4B00H+b 


ii 


• 1 


24 


it 


4B80H+b 


ii 


il 


25 


24 


4C00H+b 


ii 


01 


26 


ii 


4C80H+b 


BIOS 


02-76 


01-26 






(directory and data) 



(All Information Contained Herein is Proprietary to Digital Research.) 



6. THE BIOS ENTRY POINTS 

The entry points into the BIOS from the cold start loader and BDOS 
are detailed below. Entry to the BIOS is through a "jump vector" 
located at 4A00H+b, as shown below (see Appendices B and C, as well). 
The jump vector is a sequence of 17 jump instructions which send 
program control to the individual BIOS subroutines. The BIOS 
subroutines may be empty for certain functions (i.e., they may contain 
a single RET operation) during regeneration of CP/M, but the entries 
must be present in the jump vector. 



The jump vector at 4A00H+b takes the form shown below, 
individual jump addresses are given to the left: 



where the 



4A00H+D 


J MP 


BOOT 


; ARRIVE HERE FROM COLD START LOAD 


4A0 3H+D 


J MP 


WBOOT 


; ARRIVE HERE FOR WARM START 


4A0 6H+b 


J MP 


CONST 


; CHECK FOR CONSOLE CHAR READY 


4A09H+b 


J MP 


CONIN 


; READ CONSOLE CHARACTER IN 


4A0CH+b 


J MP 


CONOUT 


; WRITE CONSOLE CHARACTER OUT 


4A0FH+b 


J MP 


LIST 


; WRITE LISTING CHARACTER OUT 


4Al2H+b 


J MP 


PUNCH 


; WRITE CHARACTER TO PUNCH DEVICE 


4Al5H+b 


J MP 


READER 


; READ READER DEVICE 


4A18H+D 


J MP 


HOME 


; MOVE TO TRACK 00 ON SELECTED DISK 


4AlBH+b 


J MP 


SELDSK 


; SELECT DISK DRIVE 


4A1EH+D 


J MP 


SETTRK 


; SET TRACK NUMBER 


4A21H+0 


J MP 


SETS EC 


; SET SECTOR NUMBER 


4A2 4H+D 


J MP 


SETDMA 


; SET DMA ADDRESS 


4A2 7H+b 


J MP 


READ 


; READ SELECTED SECTOR 


4A2AH+P 


J MP 


WRITE 


; WRITE SELECTED SECTOR 


4A2DH+b 


JMP 


LISTST 


; RETURN LIST STATUS 


4A30H+b 


J MP 


SECT RAM 


; SECTOR TRANSLATE SUBROUTINE 



Each jump address corresponds to a particular subroutine which 
performs tne specific function, as outlined below. There are three 
major divisions in the jump table: the system (re) initialization 
which results from calls on BOOT and WBOOT, simple character I/O 
performed by calls on CONST, CONIN, CONOUT, LIST, PUNCH, READER, and 
LISTST, and diskette I/O performed by calls on HOME, SELDSK, SETTRK, 
SETSEC, SETDMA, READ, WRITE, and SECTRAN. 




ASCI 
An 

control-z (1AH) . Peripheral devices are seen by CP/M as ''logical 

devices, and are assigned to physical devices within the BIOS. 

In order to operate, the BDOS needs only the CONST, CONIN, and 
CONOUT subroutines (LIST, PUNCH, and READER may be used by PIP, but 
not the BDOS). Further, the LISTST entry is used currently only by 
DESPOOL, and thus, the initial version of CBIOS may have empty 
subroutines for the remaining ASCII devices. 
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The characteristics of each device are 



CONSOLE 



LIST 



PUNCH 



READER 



The principal interactive console which communicates 
with the operator, accessed through CONST, CONIN, and 
CONOUT. Typically, the CONSOLE is a device such as a 
CRT or Teletype. 

The principal listing device, if it exists on your 
system, which is usually a hard-copy device, such as a 
printer or Teletype. 

The principal tape punching device, if it exists, which 
is normally a high-speed paper tape punch or Teletype. 



The principal tape reading device, 
optical reader or Teletype. 



such as a simple 



Note that a single peripheral can be assigned as 
the LIST, PUNCH, and READER device simultaneously. If 
no peripheral device is assigned as the LIST, PUNCH, or 
READER device, the CBIOS created by the user may give 
an appropriate error message so that the system does 
not "hang" if the device is accessed by PIP or some 
other user program. Alternately, the PUNCH and LIST 
routines can just simply return, and the READER routine 
can return with a 1AH (ctl-Z) in reg A to indicate 
immediate end-of-file. 

For added flexibility, the user can optionally 
implement the " IOBYTE" function which allows 
reassignment of physical and logical devices. The 
IOBYTE function creates a mapping of logical to 
physical devices which can be altered during CP/M 
processing (see the STAT command) . The definition of 
the IOBYTE function corresponds to the Intel standard 
as follows: a single location in memory (currently 
location 0003H) is maintained, called IOBYTE, which 
defines the logical to physical device mapping which is 
in effect at a particular time. The mapping is 
performed by splitting the IOBYTE into four distinct 
fields of two bits each, called the CONSOLE, READER, 
PUNCH, and LIST fields, as shown below: 

most significant least significant 

IOBYTE AT 0003H I LIST I PUNCH I READER I CONSOLE I 



bits 6,7 bits 4,5 bits 2,3 bits 0,1 

The value in each field can be in the range 0-3, 
defining the assigned source or destination of each 
logical device. The values which can be assigned to 
each field are given below 
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field (bits 0 ,1) 
console is assigned to tne console printer device ( TTY : ) 
console is assigned to the CRT device (CRT:) 
batch mode: use the READER as the CONSOLE input, 
and the LIST device as the CONSOLE output (BAT: ) 
user defined console device (UC1 : ) 

READER field (bits 2,3) 

0 - READER is the Teletype device (TTY: ) 

1 - READER is the high-speed reader device (RDR : ) 

2 - user defined reader # 1 (UR1:) 

3 - user defined reader # 2 (UR2 : ) 

PUNCH field (bits 4,5) 

0 - PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the high speed punch device (PUN:) 

2 - user defined punch # 1 (UPl: ) 

3 - user defined punch #2 (UP2 : ) 

LIST field (bits 6,7) 

0 - LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user defined list device (UL1:) 

Note again that the implementation of the IOBYTE is 
optional, and affects only the organization of your 
CBIOS. No CP/M systems use the IOBYTE (although they 
tolerate the existence of the IOBYTE at location 
0003H) , except for PIP which allows access to the 
physical devices, and STAT which allows 
logical-physical assignments to be made and/or 
displayed (for more information, see the "CP/M Features 
and Facilities Guide"). In any case, the IOBYTE 
implementation should be omitted until your basic CBIOS 
is fully implemented and tested; then add the IOBYTE to 
increase your facilities. 

Disk I/O is always performed through a sequence of 
calls on the various disk access subroutines which set 
up the disk number to access, the track and sector on a 
particular disk, and the direct memory access (DMA) 
address involved in the I/O operation. After all these 
parameters have been set up, a call is made to the READ 
or WRITE function to perform the actual I/O operation. 
Note that there is often a single call to SELDSK to 
select a clisk drive, followed by a number of read or 
write operations to the selected disk before selecting 
another drive for subsequent operations. Similarly, 
there may be a single call to set the DMA address, 
followed by several calls which read or write from the 
selected DMA address before the DMA address is changed. 
The track and sector subroutines are always called 
before the READ or WRITE operations are performed. 



CONSOLE 

0 - 

1 - 

2 - 

3 - 
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Note that the READ and WRITE routines should 
perform several retries (10 is standard) before 
reporting the error condition to the BDOS. If the 
error condition is returned to the BDOS, it will report 
the error to the user. The HOME subroutine may or may 
not actually perform the track 00 seek f depending upon 
your controller characteristics; the important point is 
that track 00 has been selected for the next operation, 
and is often treated in exactly the same manner as 
SETTRK with a parameter of 00. 

The exact responsibilites of each entry point 
subroutine are given below: 

BOOT The BOOT entry point gets control from the cold start 

loader and is responsible for basic system 
initialization, including sending a signon message 
(which can be omitted in the first version)!. If the 
IOBYTE function is implemented, it must be set at this 
point. The various system parameters whicn are set by 
the WBOOT entry point must be initialized, and control 
is transferred to the CCP at 3400H+b for further 
processing. Note that reg C must be set to zero to 
select drive A. 

WBOOT The WBOOT entry point gets control when a warm start 

occurs. A warm start is performed whenever a user 
program branches to location 0000H, or when the CPU is 
reset from the front panel. The CP/M system must be 
loaded from the first two tracks of drive A up to, but 
not including, the BIOS (or CBIOS, if you have 
completed your patch). System parameters must be ini- 
tialized as shown below: 

location 0,1,2 set to JMP WBOOT for warm starts 

(0000H: JMP 4A03H+b) 

location 3 set initial value of IOBYTE, if 

implemented in your CBIOS 

location 5,6,7 set to JMP BDOS, which is the 

primary entry point to CP/M for 
transient programs. (0005H: JMP 
3C06H+b) 

(see Section 9 for complete details of page zero use) 
Upon completion of the initialization, the WBOOT 
program must branch to the CCP at 3400H+b to (re) start 
the system. Upon entry to the CCP, register C is set 
to the drive to select after system initialization. 

CONST Sample the status of the currently assigned console 

device and return 0FFH in register A if a character is 
ready to read, and 00H in register A if no console 
characters are ready. 

CONIN Read the next console character into register A, and 
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set the parity pit (high order bit) to zero. If no 
console character is ready, wait until a character is 
typed before returning. 

CONOUT Send the character from register C to the console 

output device. The character is in ASCII, with high 
order parity bit set to zero. You may want to include 
a time-out on a line feed or carriage return, if your 
console device requires some time interval at the end 
of the line (such as a TI Silent 700 terminal) . You 
can, if you wish, filter out control characters which 
cause your console device to react in a strange way (a 
control-z causes the Lear Seigler terminal to clear 
the screen, for example) . 

LIST Send the character from register C to the currently 

assigned listing device. The character is in ASCII 
with zero parity. 

PUNCH Send the character from register C to the currently 

assigned punch device. The character is in ASCII with 
zero parity. 

READER Read the next character from the currently assigned 

reader device into register A with zero parity (high 
order bit must be zero) , an end of file condition is 
reported by returning an ASCII control-z (1AH) . 

HOME Return the disk head of the currently selected disk 

(initially disk A) to the track 00 position. If your 
controller allows access to the track 0 flag from the 
drive, step the head until the track 0 flag is 
detected. If your controller does not support this 
feature, you can translate the HOME call into a call 
on SETTRK with a parameter of 0. 

SELDSK Select the disk drive given by register C for further 

operations, where register C contains 0 for drive A, 1 
for drive B, and so-forth up to 15 for drive P (the 
standard CP/M distribution version supports four 
drives) . On each disk select, SELDSK must return in 
HL the base address of a 16-byte area, called the Disk 
Parameter Header, described in the Section 10. For 
standard floppy disk drives, the contents of the 
header and associated tables does not change, and thus 
the program segment included in the sample CBIOS 
performs this operation automatically. If there is an 
attempt to select a non-existent drive, SELDSK returns 
HL=0000H as an error indicator. Although SELDSK must 
return the header address on each call, it is 
advisable to postpone the actual physical disk select 
operation until an I/O function (seek, read or write) 
is actually performed, since disk selects often occur 
without utimately performing any disk I/O, and many 
controllers will unload the head of the current disk 
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before selecting the new drive. This would cause an 
excessive amount of noise and disk wear. 

SETTRK Register BC contains the track number for subsequent 

disk accesses on the currently selected drive. You 
can choose to seek the selected track at this time r or 
delay the seek until the next read or write actually 
occurs. Register BC can take on values in the range 
0-76 corresponding to valid track numbers for standard 
floppy disk drives, and 0-65535 for non-standard disk 
subsystems . 

SETSEC Register BC contains the sector number (1 through 26) 

for subsequent disk accesses on the currently selected 
drive. You can choose to send this information to the 
controller at this point, or instead delay sector 
selection until a read or write operation occurs. 

SETDMA Register 3C contains the DMA (disk memory access) 

address for subsequent read or write operations. For 
example, if B = 00H and C = 80H when SETDMA is called, 
then all subsequent read operations read their data 
into 80H through 0FFH, and all subsequent write 
operations get their data from 80H through 0FFH, until 
the next call to SETDMA occurs. The initial DMA 
address is assumed to be 80H. Note that the 
controller need not actually support direct memory 
access. If, for example, all data is received and 
sent through I/O ports, the CBIOS which you construct 
will use the 128 byte area starting at the selected 
DMA address for the memory buffer during the following 
read or write operations. 

READ Assuming the drive has been selected, the track has 

been set, the sector has been set, and the DMA address 
has been specified, the READ subroutine attempts to 
read one sector based upon these parameters, and 
returns the following error codes in register A: 

0 no errors occurred 

1 non-recoverable error condition occurred 

Currently, CP/M responds only to a zero or non-zero 
value as the return code. That is, if the value in 
register A is 0 then CP/M assumes that the disk 
operation completed properly. If an error occurs, 
however, the CBIOS should attempt at least 10 retries 
to see if the error is recoverable. When an error is 
reported the BDOS will print the message "BDOS ERR ON 
x: BAD SECTOR". The operator then has the option of 
typing <cr> to ignore the error, or ctl-C to abort. 

WRITE Write the data from the currently selected DMA address 

to the currently selected drive, track, and sector. 
The data should be marked as "non deleted data" to 
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maintain compatibility with other CP/M systems. The 
error codes given in the READ command are returned in 
register A r with error recovery attempts as described 
above. 1 

i 

LISTST Return the ready status of the list device. Used by 

the DESPOOL program to improve console response during 
its operation. The value 00 is returned in A if the 
list device is not ready to accept a character, and 
0FFH if a character can be sent to the printer. Note 
that a 00 value always suffices. 

SECTRAN Performs sector logical to physical sector translation 

in order to improve the overall response of CP/M. 
Standard CP/M systems are shipped with a "skew factor" 
of 6, where six physical sectors are skipped between 
each logical read operation. This skew factor allows 
enough time between sectors for most programs to load 
their buffers without missing the next sector. In 
particular computer systems which use fast processors, 
memory, and disk subsystems, the skew factor may be 
changed to improve overall response. Note, however, 
that you should maintain a single density IBM 
compatible version of CP/M for information transfer 
into and out of your computer system, using a skew 
factor of 6. In general, SECTRAN receives a logical 
sector number in BC, and a translate table address in 
DE. The sector number is used as an index into the 
translate table, with the resulting physical sector 
number in HL. For standard systems, the tables and 
indexing code is provided in the CBIOS and need not be 
changed. 
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7 . A SAMPLE BIOS 



The program shown in Appendix C can serve as a basis for your 
first BIOS. The simplest functions are assumed in this BIOS, so that 
you can enter it through the front panel, if absolutely necessary. 
Note that the user must alter and insert code into the subroutines for 
CONST, CONIN, CONOUT, READ, WRITE, and WAITIO subroutines. Storage is 
reserved for user-supplied code in these regions. The scratch area 
reserved in page zero (see Section 9) for the BIOS is used in this 
program, so that it could be implemented in ROM, if desired. 

Once operational, this skeletal version can be enhanced to print 
the initial sign-on message and perform better error recovery. The 
subroutines for LIST, PUNCH, and READER can be filled-out, and the 
IOBYTE function can be implemented. 



(All Information Contained Herein is Proprietary to Digital Research.) 

21 



8. A SAMPLE COLD START LOADER 



The program shown in Appendix D can serve as a basis for your cold 
start loader. The disk read function must be supplied by the user, 
and the program must be loaded somehow starting at location 0000. 
Note that space is reserved for your patch so that the total amount of 
storage required for the cold start loader is 128 bytes. Eventually, 
you will probably want to get this loader onto the first disk sector 
(track 0, sector 1), and cause your controller to load it into memory 
automatically upon system start-up. Alternatively, you may wish to 
place tne cold start loader into ROM , and place it above the CP/M 
system. In this case, it will be necessary to originate the program 
at a higher address, and key-in a jump instruction at system start-up 
which brancnes to the loader. Subsequent warm starts will not require 
this key-in operation, since the entry point 'WBOOT* gets control, 
thus bringing the system in from disk automatically. Note also that 
the skeletal cold start loader has minimal error recovery, which may 
De enhanced on later versions. 
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9. RESERVED LOCATIONS IN PAGE ZERO 



Main memory page zero, between locations 00H and 0FFH, contains 
several segments of code and data which are used during CP/M 
processing. The code and data areas are given below for reference 
purposes. 



Locations 
from to 
0000H - 0002H 



Contents 

Contains a jump instruction to the warm start 
entry point at location 4A03H+b. This allows a 
simple programmed restart (JMP 0000H) or manual 
restart from the front panel. 



0003H - 0003H 



Contains the Intel standard IOBYTE, which is 
optionally included in the user's C3I0S, as 
described in Section 6. 



0004H - 0004H 
0005H - 0007H 



0003H - 0027H 
0030H - 0037H 

0038H - 003AH 



003BH 
0040H 

0050H 
005CH 



003FH 
004FH 

005BH 
007CH 



Current default drive number (0=A, . . . ,lb=P) . 

Contains a jump instruction to the BDOS,and 
serves two purposes: JMP 0 0 05H provides the 
primary entry point to the BDOS , as described in 
the manual "CP/M Interface Guide," and LHLD 
0006H brings the address field of the 
instruction to the HL register pair. This value 
is the lowest address in memory used by CP/M 
(assuming the CCP is being overlayed) . Note 
that the DDT program will change the address 
field to reflect the reduced memory size in 
debug mode. 

(interrupt locations 1 through 5 not used) 

(interrupt location 6, not currently used 
reserved) 

Restart 7 - Contains a jump instruction into the 
DDT or SID program when running in debug mode 
for programmed breakpoints, but is not otherwise 
used by CP/M. 

(not currently used - reserved) 

16 byte area reserved for scratch by CBIOS, but 
is not used for any purpose in the distribution 
version of CP/M 

(not currently used - reserved) 

default file control block produced for a 
transient program by the Console Command 
Processor. 



007DH - 007FH 



Optional default random record position 
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0080H - 00FFH default 128 byte disk buffer (also filled with 

the command line when a transient is loaded 
under the CCP) . 



Note that this information is set-up for normal operation under 
the CP/M system, but can be overwritten by a transient program if the 
BDOS facilities are not required by the transient. 

If r for example, a particular program performs only simple I/O and 
must begin execution at location 0, it can be first loaded into the 
TP A , using normal CP/M facilities, with a small memory move program 
which gets control when loaded (the memory move program must get 
control from location 0100H, which is the assumed beginning of all 
transient programs) . The move program can then proceed to move the 
entire memory image down to location 0, and pass control to the 
starting address of the memory load. Note that if the BIOS is 
overwritten, or if location 0 (containing the warm start entry point) 
is overwritten, then the programmer must bring the CP/M system back 
into memory with a cold start sequence. 
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10. DISK PARAMETER TABLES. 

Tables are included in the BIOS which describe the particular 
characteristics of the disk subsystem used with CP/M. These tables 
can be either hand-coded, as shown in the sample CBIOS in Appendix C, 
or automatically generated using the DISKDEF macro library, as shown 
in Appendix B. The purpose here is to describe the elements of these 
tables. 

In general, each disk drive has an associated (16-byte) disk 
parameter header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations. The 
format of the disk parameter header for each drive is shown below 

Disk Parameter Header 



I XLT | 0000 | 0000 | 0000 iDIRBUFl DPB | CSV I ALV I 



16b 16b 16b 16b 16b 16b 16b 16b 

where each element is a word (16-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is 

XLT Address of the logical to physical translation vector, 

if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e, the physical 
and logical sector numbers are the same). Disk drives 
with identical sector skew factors share the same 
translate tables. 

0000 Scratchpad values for use within the BDOS (initial 

value is unimportant) . 

DIRBUF Address of a 128 byte scratchpad area for directory 
operations within BDOS. Ail DPH ' s address the same 
scratchpad area. 

DPB Address of a disk parameter block for this drive. 

Drives with identical disk characteristics address the 
same disk parameter block. 

CSV Address of a scratchpad area used for software check 

for changed disks. This address is different for each 
DPH. 

ALV Address of a scratchpad area used by the BDOS to keep 

disk storage allocation information. This address is 
different for each DPH. 

Given n disk drives, the DPH ' s are arranged in a table whose first row 
of 16 bytes corresponds to drive 0, with the last row corresponding to 
drive n-1 . The table thus appears as 
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DPBASE: 



00 IXLT 001 0000 I 0000 | 0000 | DIRBUF | DBP 00|CSV 00|ALV 00 I 



01 IXLT 011 


0000 


0000 | 0000 | DIRBUF I DBP 011 CSV 01|ALV 01 | 


(and so-forth through) 


n-1 |XLTn-l | 


0000 


0 000 I 0 000 | DIRBUF | DBPn-1 |CSVn-l |ALVn-l | 


the label 


DPBASE 


defines the base address of the DPH table. 



A responsibility of the SELDSK subroutine is to return the base 
address of the DPH for the selected drive. The following sequence of 
operations returns the table address, with a 0000H returned if the 
selected drive does not exist. 

NDISKS EQU 4 ;NUMBER OF DISK DRIVES 

SELDSK: 



; SELECT DISK GIVEN BY BC 



LXI 


H,0000H 


; ERROR CODE 


MOV 


A,C 


; DRIVE OK? 


CPI 


NDISKS 


;CY IF SO 


RNC 




;RET IF ERROR 


;N0 


ERROR, CONTINUE 


MOV 


L r C 


;LOW(DISK) 


MOV 


H,B 


;HIGH(DISK) 


DAD 


H 


; *2 


DAD 


H 


;*4 


DAD 


H 


; *8 


DAD 


H 


;*16 


LXI 


D, DPBASE 


; FIRST DPH 


DAD 


D 


;DPH (DISK) 


RET 







The translation vectors (XLT 00 through XLTn-1) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-1. The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB , which is addressed by one or more DPH's, takes the general form 

I SPT iBSHlBLMl EXM| DSM I DRM | AL0 I AL1 I CKS I OFF I 

16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 

where each is a byte or word value, as shown by the "8b" or "16b" 
indicator below the field. 

SPT is the total number of sectors per track 

BSH is the data allocation block shift factor, determined 

by the data block allocation size. 
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EXM is the extent mask, determined by the data block 

allocation size and the number of disk blocks. 

DSM determines the total storage capacity of the disk drive 

DRM determines the total number of directory entries which 

can be stored on this drive AL0 , ALl determine reserved 
directory blocks. 

CKS is the size of the directory check vector 

OFF is the number of reserved tracks at the beginning of 

the (logical) disk. 

The values of BSH and BLM determine (implicitly) the data allocation 
size BLS, which is not an entry in the disk parameter block. Given 
that the designer has selected a value for BLS, the values of BSH and 
BLM are shown in the table below 



BLS BSH BLM 

1,024 3 7 

2,048 4 15 

4,096 5 31 

8,192 6 63 

16,384 7 127 



where all values are in decimal. The value of EXM depends upon both 
the BLS and whether the DSM value is less than 256 or greater than 
255, as shown in the following table 

BLS DSM < 256 DSM > 255 



1,024 0 N/A 

2,048 1 0 

4,096 3 1 

8,192 7 3 

16,384 15 7 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks. 

The DRM entry is the one less than the total number of directory 
entries, which can take on a 16-bit value. The values of AL0 and ALl , 
however, are determined by DRM. The two values AL0 and ALl can 
together be considered a string of 16-bits, as shown below. 
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AL0 | ALl 



I I I I I I I I I I I I I I I I I 



00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

where position 00 corresponds to the high order bit of the byte 
labelled AL0 , and 15 corresponds to the low order bit of the byte 
labelled ALl. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15). Each directory entry occupies 
32 bytes, resulting in the following table 

BLS Directory Entries 

l r 024 32 times # bits 

2 f 048 64 times # bits 

4,096 128 times # bits 

8,192 256 times # bits 

16,384 512 times # bits 

Thus, if DRM = 127 (128 directory entries) , and BLS = 1024, then there 
are 32 directory entries per block, requiring 4 reserved blocks. In 
this case, the 4 high order bits of AL0 are set, resulting in the 
values AL0 = 0F0H and ALl = 00H. 

The CKS value is determined as follows: if the disk drive media 
is removable, then CKS = (DRM+D/4, where DRM is the last directory 
entry number. If the media is fixed, then set CKS = 0 (no directory 
records are checked in this case) . 

Finally, the OFF field determines the number of tracks which are 
skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPB, recall that several DPH's 
can address the same DPB if their drive characteristics are identical. 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked . 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive. If CKS = (DRM+D/4, then you must reserve (DRM+D/4 bytes for 
directory check use. If CKS = 0, then no storage is reserved. 
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The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+l. 

The CBIOS shown in Appendix C demonstrates an instance of these 

tables for standard 8" single density drives. It may be useful to 

examine this program, and compare the tabular values with the 
definitions given above. 
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11. THE DISKDEF MACRO LIBRARY. 



A macro library is shown in Appendix F, called DISKDEF, which 
greatly simplifies the table construction process. You must have 
access to the MAC macro assembler, of course, to use the DISKDEF 
facility, while the macro library is included with all CP/M 2.0 
distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements: 



MACLIB 


DISKDEF 


• ••••• 

DISKS 


n 


DISKDEF 


0 , . . . 


DISKDEF 


If... 


DISKDEF 


n-1 


ENDEF 





where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow which define the characteristics of 
each logical disk, 0 through n-1 (corresponding to logical drives A 
through P) . Note that the DISKS and DISKDEF macros generate the 
in-line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas which are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 

DISKDEF dn,fsc,lsc, [skf] ,bls ,dks,dir ,cks,of s, [0] 

where 

dn is the logical disk number, 0 to n-1 

fsc is the first physical sector number (0 or 1) 

lsc is the last sector number 

skf is the optional sector skew factor 

bis is the data allocation block size 

dir is the number of directory entries 

cks is the number of •'checked" directory entries 

ofs is the track offset to logical track 00 

[0] is an optional 1.4 compatibility flag 

The value "dn" is the drive number being defined with this DISKDEF 
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macro invocation. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually 0 or 1. The "lsc" is the last 
numbered sector on a track. When present, the "skf" parameter defines 
the sector skew factor which is used to create a sector translation 
table according to the skew. If the number of sectors is less than 
256 f a single-byte table is created, otherwise each translation table 
element occupies two bytes. No translation table is created if the 
skf parameter is omitted (or equal to 0) . The "bis" parameter 
specifies the number of bytes allocated to each data block, and takes 
on the values 1024, 2048, 4096, 8192, or 16384. Generally, 
performance increases with larger data block sizes since there are 
fewer directory references and logically connected data records are 
physically close on the disk. Further, each directory entry addresses 
more data and the BIOS-resident ram space is reduced. The "dks" 
specifies the total disk size in "bis" units. That is, if the bis = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bis must be 
greater than 1024. The value of "dir" is the total number of 
directory entries which may exceed 255, if desired. The "cks" 
parameter determines the number of directory items to check on each 
directory scan, and is used internally to detect changed disks during 
system operation, where an intervening cold or warm start has not 
occurred (when this situation is detected, CP/M automatically marks 
the disk read/only so that data is not subsequently destroyed) . As 
stated in the previous section, the value of cks = dir when the media 
is easily changed, as is the case with a floppy disk subsystem. If 
the disk is permanently mounted, then the value of cks is typically 0, 
since the probability of changing disks without a restart is quite 
low. The "ofs" value determines the number of tracks to skip when 
this particular drive is addressed, which can be used to reserve 
additional operating system space or to simulate several logical 
drives on a single large capacity physical drive. Finally, the [0] 
parameter is included when file compatibility is required with 
versions of 1.4 which have been modified for higher density disks. 
This parameter ensures that only 16K is allocated for each directory 
record, as was the case for previous versions. Normally, this 
parameter is not included. 

For convenience and economy of table space, the special form 

DISKDEF i,j 

gives disk i the same characteristics as a previously defined drive j. 
A standard four-drive single density system, which is compatible with 
version 1.4, is defined using the following macro invocations: 
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DISKS 4 

DISKDEF 0,l f 26 r 6 r 1024 r 243 r 64,64,2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 



• • • • 



ENDEF 



with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26) , with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPH's), 
starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
correspond one-for-one to each of the defined drives. In the four 
drive standard system, for example, the DISKS macro generates a table 
of the form: 



DPBASE 


EQU 


$ 


DPE0 : 


DW 


XLT0 


DPE1 : 


DW 


XLT0 


DPE2: 


DW 


XLT0 


DPE3: 


DW 


XLT0 



,0000H,0000H,0000H, 
,0000H,0000H,0000H, 
,0000H,0000H,0000H, 
,0000H,0000H,0000H, 



DIRBUF ,DPB0 , CSV0 ,ALV0 
DIRBUF ,DPB0 ,CSV1,ALV1 
DIRBUF ,DPB0 , CSV2 , ALV2 
DIRBUF, DPB0 ,CSV3 ,ALV3 



where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive 0 through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section. The check and allocation vector addresses are 
generated by the ENDEF macro in the ram area following the BIOS code 
and tables. 

Note that if the "skf" (skew factor) parameter is omitted (or 
equal to 0) , the translation table is omitted, and a 0000H value is 
inserted in the XLT position of the disk parameter header for the 
disk. In a subsequent call to perform the logical to physical 
translation, SECTRAN receives a translation table address of DE 
0000H, and simply returns the original logical sector from BC in the 
HL register pair. A translate table is constructed when the skf 
parameter is present, and the (non-zero) table address is placed into 
the corresponding DPH's. The table shown below, for example, is 
constructed when the standard skew factor skf = 6 is specified in the 
DISKDEF macro call: 



XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce 
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4DB0 
013C 



4C72 



BEG DAT EQU $ 
(data areas) 
ENDDAT EQU $ 



DATSIZ EQU $-BEGDAT 



which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB0H-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, since STAT uses the disk parameter block to 
decode the drive information. The STAT command form 



decodes the disk parameter block for drive d (d=A,...,P) and displays 
the values shown below: 



r: 128 Byte Record Capacity 

k: Kilobyte Drive Capacity 

d: 32 Byte Directory Entries 

c: Checked Directory Entries 

e: Records/ Extent 

b: Records/ Block 

s: Sectors/ Track 

t: Reserved Tracks 



Three examples of DISKDEF macro invocations are shown below with 
corresponding STAT parameter values (the last produces a full 
8-megabyte system) . 



DISKDEF 0,1,58, ,2048,256,128,128,2 
r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 

DISKDEF 0,1,58, ,2048,1024,300,0 ,2 
r=16384, k=2048, d=300, c=0 , e=128, b=16, s=58, t=2 

DISKDEF 0,1,58, ,16384,512,128,128,2 
r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 



STAT d:DSK: 
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12. SECTOR BLOCKING AND DEBLOCKING. 



Upon each call to the BIOS WRITE entry point, the CP/M BDOS 
includes information which allows effective sector blocking and 
deblocking where the host disk subsystem has a sector size which is a 
multiple of the basic 128-byte unit. The purpose here is to present a 
general-purpose algorithm which can be included within your BIOS which 
uses the BDOS information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 



0 = normal sector write 

1 = write to directory sector 

2 = write to the first sector 

of a new data block 



Condition 0 occurs whenever the next write operation is into a 
previously written area, such as a random mode record update, when the 
write is to other than the first sector of an unallocated block, or 
when the write is not into the directory area. Condition 1 occurs 
when a write into the directory area is performed. Condition 2 occurs 
when the first record (only) of a newly allocated data block is 
written. In most cases, application programs read or write multiple 
128 byte sectors in sequence, and thus there is little overhead 
involved in either operation when blocking and deblocking records 
since pre-read operations can be avoided when writing records. 

Appendix G lists the blocking and deblocking algorithms in skeletal 
form (this file is included on your CP/M disk). Generally, the 
algorithms map all CP/M sector read operations onto the host disk 
through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the CP/M sector involved in a seek operation are prefixed by "sek," 
while those related to the host disk system are prefixed by "hst. " 
The equate statements beginning on line 29 of Appendix G define the 
mapping between CP/M and the host system, and must be changed if other 
than the sample host system is involved. 

The entry points BOOT and WBOOT must contain the initialization 
code starting on line 57, while the SELDSK entry point must be 
augmented by the code starting on line 65. Note that although the 
SELDSK entry point computes and returns the Disk Parameter Header 
address, it does not physically selected the host disk* at this point 
(it is selected later at READHST or WRITEHST) . Further, SETTRK, 
SETTRK, and SETDMA simply store the values, but do not take any other 
action at this point. SECTRAN performs a trivial trivial function of 
returning the physical sector number. 

The principal entry points are READ and WRITE, starting on lines 
110 and 125, respectively. These subroutines take the place of your 
previous READ and WRITE operations. 

The actual physical read or write takes place at either WRITEHST 
or READHST, where all values have been prepared: hstdsk is the host 
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disk number, hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 
number) . You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 

This particular algorithm was tested using an 80 megabyte hard 
disk unit which was originally configured for 128 byte sectors, 
producing approximately 35 megabytes of formatted storage. When 
configured for 512 byte host sectors, usable storage increased to 57 
megabytes, with a corresponding 400% improvement in overall response. 
In this situation, there is no apparent overhead involved in 
deblocking sectors, with the advantage that user programs still 
maintain the (less memory consuming) 128-byte sectors. This is 
primarily due, of course, to the information provided by the BDOS 
which eliminates the necessity for pre-read operations to take place. 
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APPENDIX A: THE MDS COLD START LOADER 



MDS-800 Cold Start Loader for CP/M 2.0 



Version 2.0 August, 1979 



0 000 




false 


equ 


0 




f f f f 


= 


true 


equ 


not false 


0000 


= 


testing 
• 


equ 


false 










if 


testing 








bias 


equ 


03400h 










endi f 












if 


not testing 


0000 


= 


bias 


equ 


0000h 










endif 






0000 


= 


cpmb 


equ 


bias 


;base of dos load 


0806 




bdos 


equ 


806h+bias ;entry to dos for calls 


1880 




bdose 


equ 


1880h+bias ;end of dos load 


1600 


= 


boot 


equ 


1600h+bias ;cold start entry point 


1603 


= 


r boot 
• 


equ 


boot+3 


;warm start entry point 


3000 






org 


3000h ; loaded here by hardware 


1880 




? 

bdosl 


equ 


bdose-cpmb 


0002 




n t rk s 


equ 


2 


; tracks to read 


0031 


= 


bdoss 


equ 


bdosl/128 ;# sectors in bdos 


0019 


= 


bdos0 


equ 


25 


;# on track 0 


0018 


= 


bdosl 


equ 


bdoss-bdos0 ;# on track 1 


f 800 




mon80 


equ 


0f800h ; 


;intel monitor base 


f f0f 




rmon80 


equ 


0ff0fh ; 


•restart location for mon80 


0078 




base 


equ 


078h ; 


; 'base' used by controller 


0079 


_ 


r type 


equ 


base+1 j 


•result type 


007b 


= 


rby te 


equ 


base+3 j 


•result byte 


007f 


= 


reset 
• 


equ 


base+7 , 


•reset controller 


0078 




dstat 


equ 


base 


rdisk status port 


0079 




ilow 


equ 


base+1 , 


?low iopb address 


007a 




ihigh 


equ 


base+2 


?high iopb address 


00f f 


= 


bsw 


equ 


0f fh 


?boot switch 


0003 


= 


recal 


equ 


3h 


^recalibrate selected drive 


0004 




readf 


equ 


4h 


?disk read function 


0100 




stack 
• 


equ 


100h 


;use end of boot for stack 






r start: 








3000 


310001 




lxi 


sp, stack; in case of call to mon80 






• 


clear 


disk status 


3003 


db79 




in 


r type 




3005 


db7b 




in 


rby te 








7 


check 


if boot switch is off 






coldstart: 






3007 


dbf f 




in 


bsw 





30 



am 
jnz 



02h, ;switch on? 
coidstart 
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300e d37f 



clear the controller 

out reset ;logic cleared 



3010 0602 
3012 214230 



mvi b r ntrks ;number of tracks to read 

lxi h r iopb0 



start; 



3015 7d 

3016 d379 

3018 7c 

3019 d37a 
301b db78 



3022 db79 
3024 e603 
3026 fe02 



3028 d20030 



wait0 



read first/next track into cpmb 



mov 

out 

mov 

out 

in 

ani 
iz 



a,l 

ilow 

a, h 

ihigh 

dstat 

4 . 
wait0 



check disk status 

in rtype 

ani lib 

cpi 2 



if 

cnc 

endi f 

if 

jnc 

endif 



testing 

rmon80 ;go to monitor if 11 or 10 
not testing 

rstart ;retry the load 



302b db7b 

302d 17 

302e dc0fff 

3031 If 

3032 e61e 



3034 C20030 



in rbyte ; i/o complete, check status 

if not ready, then go to mon80 

ral 

cc rmon80 ;not ready bit set 

rar ;restore 

ani 11110b ;over run/addr err/seek/crc 



if 

cnz 

endif 

if 

jnz 

endif 



testing 

rmon80 ;go to monitor 
not testing 

rstart ; retry the load 



3037 110700 
303a 19 
303b 05 
303c C21530 



303f C30016 



lxi d,iopbl ; length of iopb 

dad d ; addressing next iopb 

dcr b ; count down tracks 

jnz start 



jmp boot, print message, set-up jmps 
jmp boot 



parameter blocks 
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3042 80 

3043 04 

3044 19 

3045 00 

3046 02 

3047 0000 
0007 = 

3049 80 

304a 04 

304b 18 

304c 01 

304d 01 

304e 800c 
3050 



iopb0 



iopbl 
iopbl 



db 
db 
db 
db 
db 
dw 
equ 

db 
db 
db 
db 
db 
dw 
end 



80h 

readf 

bdos0 

0 

2 

cpmb 
$-iopb0 



iocw, no update 

read function 

# sectors to read trk 0 

track 0 

start with sector 2, trk 0 
start at base of bdos 



80h 
readf 

bdosl jsectors to read on track 1 
1 ; track 1 

1 ; sector 1 

cpmb+bdos0*128 ;base of second rd 
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APPENDIX B: THE MDS BASIC I/O SYSTEM (BIOS) 

; mds-800 i/o drivers for cp/m 2.0 

; (four drive single density version) 

; version 2.0 august, 1979 

0014 = vers equ 20 ;version 2.0 

; copyright (c) 1979 

; digital research 

; box 579 r pacific grove 

; California, 93950 



4a00 






org 


4a00h j 


base of bios in 20k system 


3400 




cpmb 


equ 


3400h ; 


•base of cpm ccp 


3c06 




bdos 


equ 


3c06h j 


•base of bdos in 20k system 


1600 




cpml 


equ 


$-cpmb ; 


•length (in bytes) of cpm system 


002c 




nsects 


equ 


cpml/128; 


number of sectors to load 


0002 




offset 


equ 


2 ; 


•number of disk tracks used by cp 


0004 




cdisk 


equ 


00 04h 


;address of last logged disk 


0080 




buff 


equ 


0080h 


'default buffer address 


000a 




retry 


equ 


10 


■max retries on disk i/o before e 



perform following functions 

boot cold start 

wboot warm start (save i/o byte) 

(boot and wboot are the same for mds) 

const console status 

reg-a = 00 if no character ready 
reg-a = ff if character ready 

conin console character in (result in reg-a) 

conout console character out (char in reg-c) 

list list out (char in reg-c) 

punch punch out (char in reg-c) 

reader paper tape reader in (result to reg-a) 

home move to track 00 

(the following calls set-up the io parameter bloc 
mds, which is used to perform subsequent reads an 
seldsk select disk given by reg-c (0,1,2...) 
settrk set track address (0,...76) for sub r/w 
setsec set sector address (1,...,26) 
setdma set subsequent dma address (initially 80h 

read/write assume previous calls to set i/o parms 
read read track/sector to preset dma address 
write write track/sector from preset dma addres 

jump vector for indiviual routines 



4a00 


c3b34a 


j 1 ™? 


boot 


4a03 


c3c34a wboote: 


jmp 


wboot 


4a06 


c3614b 


jrcp 


const 


4a09 


c3644b 


jmp 


conin 


4a0c 


c36a4b 


jmp 


conout 
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4a0f c36d4b 




jmp 


list 




4al2 c3724b 




jmp 


punch 




4al5 c3754b 




jmp 


reader 




4al8 c3784b 




jmp 


home 




4alb c37d4b 




jmp 


seldsk 




4ale c3a74b 




jmp 


settrk 




4a21 c3ac4b 




jmp 


setsec 




1 Cl £. t K,OL)K) t xU 




J m P 


setdma 




4a27 c3cl4b 




jmP 


read 




4a2a c3ca4b 




jmp 


wr ite 




4a2d c3704b 




jmp 


listst ;list status 


4a30 c3bl4b 


• 


jmp 


sectran 








maclib 


diskdef ;load the disk definition libr 






disks 


4 ;four disks 


4a33+= 


dpbase 


egu 


$ ;base of 


disk parameter blocks 


4a33+824a00 


dpe0 : 


dw 


xlt0,0000h j 


translate table 


4a37+000000 




dw 


0000h,0000h ; 


scratch area 


4a3b+6e4c73 




dw 


dirbuf,dpb0 j 


dir buff,parm block 


4a3f+0d4dee 




dw 


csv0,alv0 ; 


check, alloc vectors 


4a43+824a00 


dpel : 


dw 


xltl,0000h j 


translate table 


4a47+000000 




dw 


0000h,0000h 


•scratch area 


4a4b+6e4c73 




dw 


dirbuf,dpbl , 


•dir buff,parm block 


4a4f+3c4dld 




dw 


csvl,alvi , 


•check, alloc vectors 


4a53+824a00 


dpe2: 


dw 


xlt2,0000h 


; translate table 


4a57+000000 




dw 


0000h,0000h 


;scratch area 


4a5b+6e4c73 




dw 


dirbuf,dpb2 , 


;dir buff,parm block 


4a5f+6b4d4c 




dw 


csv2 ,alv2 


rcheck, alloc vectors 


4a63+824a00 


dpe3 : 


dw 


xlt3,0000h 


; translate table 


4a67+000000 




dw 


0000h,0000h 


^scratch area 


4a6b+6e4c73 




dw 


dirbuf,dpb3 4 


rdir buff,parm block 


4a6f+9a4d7b 




dw 


csv3 ,alv3 


;check, alloc vectors 






d i s kd e f 


0 r l ,26,6 ,1024,243, 64 f 64, of fset 


4a73+= 


dpb0 


equ 


$ 


;disk parm block 


4a73+la00 




dw 


26 


;sec per track 


4a75+03 




db 


3 


;block shift 


4a76+07 




db 


7 


rblock mask 


4a 7 7+0 0 




db 


0 


?extnt mask 


4a78+f 200 




dw 


242 


?disk size-1 


4a7a+3f00 




dw 


63 


^directory max 


4a7c+c0 




db 


192 


; alloc0 


4a7d+00 




db 


0 


; allocl 


4a7e+1000 




dw 


16 


?check size 


4a80+0200 




dw 


2 


; offset 


4a82+= 


xlt0 


equ 


$ 


^translate table 


4a82+01 




db 


1 




4a83+07 




db 


7 




4a84+0d 




db 


13 




4a85+13 




db 


19 




4a86+19 




db 


25 




4a87+05 




db 


5 




4a88+0b 




db 


11 




4a89+ll 




db 


17 




4a8a+17 




db 


23 




4a8b+03 




db 


3 





40 



4a8c+09 




db 


9 




4a8d+0f 




db 


15 




4a8e+15 




db 


21 




4a8f+02 




db 


2 




4a90+08 




db 


8 




4a91+0e 




db 


14 




4a92+14 




db 


20 




4a93+la 




db 


26 




4a94+06 




db 


6 




4a95+0c 




db 


12 




4a96+12 




db 


18 




4a97+18 




db 


24 




4a98+04 




db 


4 




4a99+0a 




db 


10 




4a9a+10 




db 


16 




4a9b+16 




db 


22 








diskdef 


1,0 




4a73+= 


dpbl 


equ 


dpb0 


equivalent parameters 


001f+= 


alsl 


equ 


als0 


;same allocation vector size 


0010+= 


cssl 


equ 


CSS0 


;same checksum vector size 


4a82+= 


xltl 


equ 


xlt0 


;same translate table 






diskdef 


2,0 




4a73+= 


dpb2 


equ 


dpb0 


;equivalent parameters 


001f+= 


als2 


equ 


als0 


;same allocation vector size 


0010+= 


css2 


equ 


CSS0 


;same checksum vector size 


4a82+= 


xlt2 


equ 


Xlt0 


;same translate table 






diskdef 


3,0 




4a73+= 


dpb3 


equ 


dpb0 


equivalent parameters 


001f+= 


als3 


equ 


als0 


;same allocation vector size 


0010+= 


css3 


equ 


CSS0 


;same checksum vector size 


4a82+= 


xlt3 


equ 


xlt0 


;same translate table 






endef occurs 


at end of assembly 



end of controller - independent code, the remaini 
are tailored to the particular operating environm 
be altered for any system which differs from the 

the following code assumes the mds monitor exists 
and uses the i/o subroutines within the monitor 









we also assume 


the mds system has four disk drive 


00fd 




revr t 


equ 


0fdh 


; interrupt revert port 


00fc 




intc 


equ 


0fch 


; interrupt mask port 


00f3 




icon 


equ 


0f3h 


; interrupt control port 


007e 




inte 
• 


equ 


0111$1110b;enable rst 0 (warm boot) ,rst 7 








mds 


monitor equates 


f800 




mon80 


equ 


0f800h 


;mds monitor 


f f0f 




rmon80 


equ 


0f f0fh 


;restart mon80 (boot error) 


f803 




ci 


equ 


0f803h 


;console character to reg-a 


f806 




r i 


equ 


0f806h 


; reader in to reg-a 


f809 




CO 


equ 


0f809h 


;console char from c to console o 


f80c 




po 


equ 


0f80ch 


;punch char from c to punch devic 


f80f 




lo 


equ 


0f80fh 


;list from c to list device 


f812 




csts 


equ 


0f812h 


;console status 00/ff to register 
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• 


disk ports and commands 


0078 


= 


base 


equ 


7 8n 


;base of disk command io ports 


fA (X 1 O 

0 0 78 




ds tat 


equ 


base 


;disk status (input) 


0079 


— 


rtype 


equ 


base+1 


; result type (input) 


007b 




rby te 
• 


equ 


base+3 


; result byte (input) 


0079 


= 


ilow 


equ 


base+1 


;iopb low address (output) 


007a 




ihigh 


equ 


base+2 


; iopb high address (output) 


0004 




L c dui 


equ 


4h 


; read function 


0006 




writf 


equ 


6h 


;write function 


0003 


= 


recal 


equ 


3h 


;recalibrate drive 


0 00 4 




iordy 


equ 


4h 


; i/o finished mask 


000d 




cr 


equ 


0dh 


;carriage return 


000a 




If 
• 


equ 


0ah 


;line feed 






signon: 


; signon message: 


xxk cp/m vers y.y 


4a9c 


0d0a0a 




db 


cr r lf r lf 




4a9f 


3230 




db 


•20' 


; sample memory size 


4aal 


6b20.43f 


db 


' k cp/m 


vers " 


4aad 


322e30 




db 


vers/10+'0 ' , * . ' ,vers mod 10+* 0' 


4ab0 


0d0a00 


• 


db 


cr, If ,0 








boot: 


; pr int 


signon message and go to ccp 






• 


(note: 


mds boot 


initialized iobyte at 0003h) 


4ab3 


310001 




lxi 


sp, buf f+80h 


4ab6 


219c4a 




lxi 


h,signon 


4ab9 


cdd34b 




call 


prmsg 


;print message 


4abc 


af 




xra 


a 


; clear accumulator 


4abd 


320400 




sta 


cdisk 


;set initially to disk a 


4ac0 


c30f4b 






gocpm 


;go to cp/m 







wboot:; loader 


on track 


0, sector 1, which will be 


skippe 






; read cp/m from 


disk - assuming there is a 


128 byt 






; start. 








4ac3 


318000 


lxi 


sp, buf f 


;using dma - thus 80 thru 


ff ok f 


4ac6 


0e0a 


7 

mvi 


c , retry 


;max retries 




4ac8 


c5 


push 


b 










wboot0: ; enter 


here on 


error retries 




4ac9 


010034 


lxi 


b , cpmb 


;set dma address to start 


of disk 


4acc 


cdbb4b 


call 


setdma 






4acf 


0e00 


mvi 


c,0 


;boot from drive 0 




4adl 


cd7d4b 


call 


seldsk 






4ad4 


0e00 


mvi 


c,0 






4ad6 


cda74b 


call 


settrk 


; start with track 0 




4ad9 


0e02 


mvi 


c,2 


;start reading sector 2 




4adb 


cdac4b 


call 


setsec 










; read sectors, count nsects to zero 




4ade 


cl 


pop 


b 


;10-error count 




4adf 


062c 


mvi 


b, nsects 





42 



rdsec: ;read next sector 



4ael 


c5 


push 


b 


;save sector count 


4ae2 


cdcl4b 


call 


read 




4ae5 


c2494b 


jnz 


booterr 


;retry if errors occur 


4ae8 


2a6c4c 


lhld 


iod 


; increment dma address 


4aeb 


118000 


lxi 


d,128 


; sector size 


4aee 


19 


dad 


d 


incremented dma address in hi 


4aef 


44 


mov 


b r h 




4af0 


4d 


mov 


c,l 


; ready for call to set dma 


4afl 


cdbb4b 


call 


setdma 


4af4 


3a6b4c 


Ida 


ios 


;sector number just read 


4af7 


fela 


cpi 


26 


;read last sector? 


4af9 


da054b 


jc 


rdl 






7 


must be 


sector 


26, zero and go to next track 


4afc 


3a6a4c 


Ida 


iot 


;get track to register a 


4af f 


3c 


inr 


a 




4b00 


4f 


mov 


c , a 


; r e ady for call 


4b01 


cda74b 


call 


se ttrk 


4b04 


af 


xr a 


a 


;clear sector number 


4b05 


3c rdl: 


inr 


a 


;to next sector 


4b06 


4f 


mov 


c r a 


; ready for call 


4b07 


cdac4b 


call 


setsec 




4b0a 


cl 


POP 


b 


; recall sector count 


4b0b 


05 


dcr 


b 


; done? 


4b0c 


c2el4a 


jnz 


rdsec 





done with the load, reset default buffer address 
; (enter here from cold start boot) 
enable rst0 and rst7 
di 

mvi a r 12h ; initialize command 

out revr t 

xr a a 

out intc ;cleared 

mvi a,inte ;rst0 and rst7 bits on 

out intc 

xr a a 

out icon ; interrupt control 

set default buffer address to 80h 
lxi b,buff 
call setdma 

reset monitor entry points 

mvi a r jmp 

sta 0 

lxi h,wboote 

shld 1 ;jmp wboot at location 00 

sta 5 

lxi h r bdos 

shld 6 ;jmp bdos at location 5 

sta 7*8 ;jrop to mon80 (may have been chan 

lxi h r mon80 

shld 7*8+1 

leave iobyte set 



gocpm : 

4b0f f3 
4bl0 3el2 
4bl2 d3fd 
4bl4 af 
4bl5 d3fc 
4bl7 3e7e 
4bl9 d3fc 
4blb af 
4blc d3f3 

9 

4ble 018000 
4b21 cdbb4b 

4b24 3ec3 
4b26 320000 
4b29 21034a 
4b2c 220100 
4b2f 320500 
4b32 21063c 
4b35 220600 
4b38 323800 
4b3b 2100f8 
4b3e 223900 
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4b41 3a0400 

4b44 4f 

4b45 fb 

4b46 C30034 



4b49 cl 
4b4a 0d 
4b4b ca524b 

4b4e c5 
4b4f c3c94a 



4b52 215b4b 
4b55 cdd34b 
4b58 c30fff 



booter r 



previously selected disk was b, send parameter to 
Ida cdisk ;last logged disk number 

mov c,a ;send to ccp to log it in 

ei 

jmp cpmb 

error condition occurred, print message and retry 



; recall counts 



booter0 



pop b 

dcr c 

jz booter0 

try again 

push b 

jmp wboot0 



otherwise too many retries 
lxi h r bootmsg 
call prmsg 

jmp rmon80 ;mds hardware monitor 



4b5b 3f626f4 



bootmsg 



db 



'?boot' ,0 



4b61 c312f8 



4b64 cd03f8 
4b67 e67f 
4b69 c9 



4b6a c309f8 



4b6d c30ff8 



4b70 af 
4b71 c9 



4b72 c30cf8 



4b75 c306f8 



const: ;console status to reg-a 
; (exactly the same as mds call) 

jmp csts 

conin: ;console character to reg-a 
call ci 

ani 7fh ; remove parity bit 

ret 



conout : 



list: 



listst: 



; console character from c to console out 
jmp co 

;list device out 

(exactly the same as mds call) 

jmp lo 



;return list status 
xra a 

ret ;always not ready 

punch: ;punch device out 

(exactly the same as mds call) 
jmp po 

reader: ; reader character in to reg-a 
(exactly the same as mds call) 
jmp ri 

home: ;move to home position 
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7 


treat 


as track 00 seek 


AK7 ft 


04 « 01 01 




mvi 


c r 0 


A K7 r» 


C oa / 4D 




jmp 


settrk 






7 

seldsk: 


;select disk given by register c 


4b7d 


210000 




1X1 


K 01 Oi 01 01 K • v A^-iirn 01 01 01 01 -i -p r\ v v r\ v- 

ii, vwyjvu ; return 0000 ir error 


ft DO 10 


7 Q 

/ y 




inov 


a , c 


A KQ 1 
4 DO 1 


E eio 4 




cp i 


ndisks ;too large? 


A K Q "3 
4Do J 


u0 




rnc 


• In ^tt a K 1 — n n 01 01 

;ieave ni — 0000 


4Do 4 


^ £ 01 o 

eo 0 z 


7 


ani 


10D ;00 00 tor drive 0 r l and 10 10 to 


4Do o 


O Z004C 




sta 


dbank ;to select drive bank 


A KQ Q 
4 Do J 


"7 Q 

/ y 




mov 


a r C /00r WJ-r ID r 11 


A KQ a 
4 Doa 


<=> £ 01 1 

e o id l 




ani 


id ;mas nas 0,1 at /o, z,o at bo 


/I KQ 

4DoC 


K7 

D / 




ora 


a ; result 00 i 


A KQ/3 

4Doa 


cay z 4D 




jz 


setdr ive 


A KQ 01 

4 Dy 0 






mvi 


a, 00110000b ;selects drive 1 in bank 






setdr ive : 




/ KQ O 

4Dy z 


/I 7 

4 / 




mov 


b,a ;save the function 


AKQ "3 
4Dy o 


0 1 £ Q An 
Z 1 O O 4C 




lxi 


h,iof ;io function 


4b96 


7e 




mov 


a,m 


4b97 


e6cf 




ani 


11001111b ;mask out disk number 


4b99 


b0 




ora 


b ;mask in new disk number 


4b9a 


77 




mov 


m,a ;save it in iopb 


IMS 

4oy c 


Q 2 oi oi 
z b 0 0 




mov 
mvi 


ijS ;hl=disk number 


4Dy e 


O Q 

zy 




dad 


n , z 


/I KQ f- 

4oy r 


O Q 

zy 




dad 


h • * A 

U f ft 


4ba0 


29 




dad 


n 7 0 


4Da± 


O Q 

zy 




dad 


h ;*16 


4ba2 


11334a 




lxi 


d ,dpbase 




i y 




dad 


r\ • hi i hoaripr a hi p adflr^cc 

U , ilX *J i 13 l\ ilCCtVJCI. LaUXC a <-« U .L C O O 


AKa£ 

4 oao 


cy 


7 


ret 








• 

settrk : 


; set 


track address given by c 


Aha7 


Z 1 Oaf* C 




lxi 


h, iot 


A K o a 
ft Dad 


7 1 
/ J. 




mov 


m,c 


4UaD 


cy 


• 


ret 








setsec: 


; set 


sector number given by c 


4bac 


216b4c 




lxi 


h, ios 


4baf 


71 




mov 


m, c 


4bb0 


c9 




ret 





sectran: 



4bbl 0600 

4bb3 eb 

4bb4 09 

4bb5 7e 

4bb6 326b4c 



4bba c 



mvi 

xchg 

dad 

mov 

sta 

mov 
ret 



; translate sector be using table at de 
b,0 ;double precision sector number 

;translate table address to hi 
b ; translate (sector ) address 

a,m ;translated sector number to a 

ios 

l,a ;return sector number in 1 



setdma: ;set dma address given by regs b,c 
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4hhh 






TTl f\ \7 


1 r 
J. , (- 


4bbc 


60 




mov 


h r b 


4-bbd 


226c4c 




shld 


iod 


4bc0 


c9 




ret 








• 

read : 


; read 


next disk record (assuming disk/trk/sec/dma 


4bcl 


0e04 




mvi 


c,readf ;set to read function 


4bc3 


cde04b 




call 


setfunc 


4bc6 


cdf 04b 




call 


waitio ;perform read function 


4bc9 


c9 


7 


ret 


;may have error set in reg-a 






• 

wr ite: 


; disk 


write function 


4bca 


0e06 




mvi 


c , wr i tf 


4bcc 


cde04b 




call 


setfunc ;set to write function 


4bcf 


cdf 04b 




call 


waitio 


4bd2 


c9 


; 


ret 


;may have error set 






; 
; 


utility subroutines 






prmsg: 


•print message at h r l to 0 


4bd3 


7e 




mov 


a,m 


4bd4 


b7 




ora 


a ;zero? 


4bd5 


c8 




rz 








• 


more 


to print 


4bd6 


e5 




push 


h 


4bd7 


4f 




mov 


c r a 


4bd8 


cd6a4 b 




call 


conout 


4bdb 


el 




pop 


h 


4bdc 


23 




inx 


h 


4bdd 


c3d34b 




jmp 


prmsg 






setf unc 


• 
• 








• 


set function for next i/o (command in reg-c) 


4be0 


21684c 




lxi 


h r iof ;io function address 


4be3 


7e 




mov 


a,m ;get it to accumulator for maskin 


4be4 


e6f8 




ani 


11111000b ; remove previous command 


4be6 


bl 




ora 


c ;set to new command 


4be7 


77 




mov 


m,a ;replaced in iopb 






• 


the mds-800 controller req's disk bank bit in sec 






• 


mask 


the bit from the current i/o function 


4be8 


e620 




ani 


00100000b ;mask the disk select bit 


4bea 


216b4c 

4« .X Vs "Z V* 




lxi 


h r ios ;address the sector selec 


4bed 


b6 




ora 


m ;select proper disk bank 


4bee 


77 




mov 


m,a ;set disk select bit on/o 


4bef 


c9 


• 


ret 








wai tio: 






4bf0 


0e0a 




mvi 


c r retry ;max retries before perm error 






L CW Ct X U • 










• 


start 


the i/o function and wait for completion 


4bf 2 


cd3f4c 




call 


intype ; in r type 


4bf 5 


cd4c4c 


• 


call 


inbyte ;clears the controller 


4bf8 


3a664c 


/ 


Ida 


dbank ;set bank flags 
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4bfb b7 
4bfc 3e67 
4bfe 064c 
4c00 c20b4c 
4c03 d379 
4c05 78 
4c06 d37a 
4c08 c3104c 



4c0b d389 
4c0d 78 
4c0e d38a 

4cl0 cd594c wait0 
4cl3 e604 
4cl5 cal04c 



4cl8 cd3f4c 



4clb 
4cld 



4c20 
4c21 



4c24 
4c27 
4c28 
4c2b 
4c2c 
4c2e 



fe02 
ca324c 



b7 

c2384c 



cd4c4c 
17 

da324c 
If 

e6f e 
c2384c 



4c31 c9 



4c32 cd4c4c 
4c35 c3384c 



or a 
mvi 
mvi 
jnz 
out 
mov 
out 
jmp 



a ;zero if drive 0,1 and nz 

a, iopb and 0ffh ;low address for iopb 

b, iopb shr 8 ;high address for iopb 
iodrl ;drive bank 1? 

ilow ;low address to controlle 
a r b 

ihigh ;high address 



wait0 



iodrl: ; drive bank 1 



wr eady 



werror 



out 
mov 
out 

call 

ani 

jz 



ilow+10h 
a, b 

ihigh+10h 

instat 

iordy 

wait0 



;to wait for complete 
;88 for drive bank 10 



;wait for completion 
; ready? 



check io completion ok 

call intype ;must be io complete (00) 

00 unlinked i/o complete, 01 linked i/o comple 
10 disk status changed 11 (not used) 

cpi 10b ;ready status change? 

jz wready 



must be 00 in the accumulator 
or a a 
jnz werror 



check i/o error bits 

call inbyte 
r al 

jc wready 
r a r 

ani 11111110b 

jnz werror 



; some other condition, re 



read or write is ok 
ret 



;unit not ready 
;any other errors? 

accumulator contains zero 



;not ready, treat as error for now 

call inbyte ;clear result byte 

jmp trycount 

;return hardware malfunction (crc, track, seek, e 
the mds controller has returned a bit in each pos 
of the accumulator, corresponding to the conditio 
0 
1 
2 
3 
4 
5 
6 
7 



deleted data (accepted as ok above) 
crc error 
seek error 

address error (hardware malfunction) 
data over/under flow (hardware malf unct 
write protect (treated as not ready) 
write error (hardware malfunction) 
not ready 
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(accumulator bits are numbered 76543210) 



it may be useful to filter out the various condit 
but we will get a permanent error message if it i 
recoverable. in any case, the not ready conditio 
treated as a separate condition for later improve 
trycount: 

; register c contains retry count, decrement 'til z 



4c3 8 


0d 




dcr 


c 


4c39 


c2f 24b 




jnz 


rewait ;for another try 






7 
* 


cannot 


recover from error 


4c3c 


3e01 




mvi 


a,l ;error code 


4c3e 


cy 




ret 


/ 

/ 






7 
7 


i,ntype, 


lnuyte, instat Lcau uiive uaiiiv \ov ui 


4 cj r 


"3 = £ £ A r* 

JdO 0 4C 


intype : 


iaa 


aoanK 


4C4 Z 


K"7 
D / 




ora 


a 


4 t, ft j 


LZ fl j ftC 




-i t 

j nz 


i y\ ¥"\t t^i 1 • c? t 1 y\ 4- r\ Kant TCI 

xnuypx 1 bi\i^ i(j uaiiN ±x) 


4c46 


db79 




in 


rtype 


4c48 


c9 




ret 




A /-i A Q 

4C4 y 


uDoy 


intypl : 


i n 


r4-irr\All (71 K . TO -p/-\v (71 1 Q Q -P/^v- 

rtype+iwn ; io ror 10, ± oo ror 


A /•% A K 

4C4D 


cy 




ret 




4c4c 


oaoo4c 


7 

i n by t e : 


1Q3 


aoanK 


A n A -F 

4C4 r 


D / 




ora 


a 


A /~i K Oi 
4 C O U 


CZ J 0 4C 




jnz 


i n by 1 1 


4c53 


db7b 




in 


rbyte 


4c55 


c9 




ret 




4c56 


db8b 


inby tl : 


in 


rbyte+10h 


4c58 


c9 




ret 




4coy 


3a664c 


7 

instat : 


Ida 


dbank 


4CDC 


b7 




ora 


a 


A nKA 

4 CDQ 


CZb J4C 




jnz 


instal 


4CD \0 


GD / o 




in 


dstat 


A H O 

4c6 2 


c9 




ret 




4c6 3 


a boo 


instal : 


in 


dstat+10h 


4 Co 5 


cy 


[ 


ret 










data areas (must be in ram) 


4c66 


00 


dbank : 


db 


0 ;disk bank 00 if drive 0,1 










10 if drive 2,3 






iopb : 


;io parameter block 


4c67 


80 




db 


80h ;normal i/o operation 


4c68 


04 


iof : 


db 


readf ;io function, initial read 


4c69 


01 


ion: 


db 


1 ; number of sectors to read 


4c6a 


02 


iot: 


db 


offset ; track number 


4c6b 


01 


ios : 


db 


1 ; sector number 


4c6c 


8000 


iod: 


dw 


buff ;io address 



10 



2,3 



define ram areas for bdos operation 



4 8 







endef 




4c6e+= 


begdat 


equ 


$ 


4c6e+ 


d i r bu f : 


ds 


128 


4cee+ 


alv0 : 


ds 


31 


4d0d+ 


csv0 : 


ds 


16 


4dld+ 


alvl : 


ds 


31 


4d3c+ 


csvl : 


. ds 


16 


4d4c+ 


alv2: 


ds 


31 


4d6b+ 


csv2 : 


ds 


16 


4d7b+ 


alv3 : 


ds 


31 


4d9a+ 


csv3 : 


ds 


16 


4daa+= 


enddat 


equ 


$ 


013c+= 


datsiz 


equ 


$-begdat 


4daa 




end 





;directory access buffer 
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APPENDIX C: A SKELETAL GBIOS 



0014 = 



ms lze 



0000 
3400 
3c06 
4a00 
0004 
0003 

4a00 
002c 



bias 

ccp 

bdos 

bios 

cdisk 

iobyte 



nsects 



skeletal cbios for first level of cp/m 2.0 altera 

equ 20 ;cp/m version memory size in kilo 

"bias" is address offset from 3400h for memory sy 
than 16k (referred to as "b" throughout the text) 

equ (msize-20) *1024 

equ 3400h+bias ;base of ccp 

equ ccp+806h ;base of bdos 

equ ccp+1600h ;base of bios 

equ 0004h ;current disk number 0=a r ...,15=p 

equ 0003h ; intel i/o byte 

org bios ;origin of this program 

equ ($-ccp)/128 ; 7 warm start sector count 

jump vector for individual subroutines 



4a00 


c39c4a 


jmp 


boot ; 


cold start 


4a03 


c3a64a wboote: 


jmp 


wboot j 


•warm start 


4a06 


c3114b 


jmp 


const j 


console status 


4a09 


c3244b 


jmp 


conin ; 


•console character in 


4a0c 


c3374b 


jmp 


conout , 


•console character out 


4a0f 


c3494b 


jmp 


list 


?list character out 


4al2 


c34d4b 


jmp 


punch , 


•punch character out 


4al5 


c34f4b 


jmp 


reader 


^reader character out 


4al8 


c3544b 


jmp 


home 


;move head to home positi 


4alb 


c35a4b 


jmp 


seldsk 


^select disk 


4ale 


c37d4b 


jmp 


settrk 


;set track number 


4a21 


c3924b 


jmp 


setsec 


;set sector number 


4a24 


c3ad4b 


jmp 


setdma 


;set dma address 


4a27 


c3c34b 


jmp 


read 


;read disk 


4a2a 


c3d64b 


jmp 


wr ite 


;write disk 


4a2d 


c34b4b 


jmp 


listst 


^return list status 


4a30 


c3a74b 


jmp 


sectran 


^sector translate 



4a33 7 34a0 0 dpbase: 
4a37 000000 
4a3b f04c8d 
4a3f ec4d70 

4a43 734a00 
4a47 000000 
4a4b f04c8d 
4a4f fc4d8f 

• 

4a53 734a00 
4a57 000000 
4a5b f04c8d 
4a5f 0c4eae 



fixed data tables for four-drive standard 

ibm-compatible 8" disks 

disk parameter header for disk 00 

dw trans, 0000h 

dw 0000h f 0000h 

dw dirbf,dpblk 

dw chk00 r all00 

disk parameter header for disk 01 

dw trans f 0000h 

dw 0000h r 0000h 

dw dirbf r dpblk 

dw chk01,all01 

disk parameter header for disk 02 

dw trans,0000h 

dw 0000h,0000h 

dw dirbf r dpblk 

dw chk02,all02 
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4a63 734a00 
4a67 000000 
4a6b f04c8d 
4a6f lc4ecd 



!}02§g 

4a7b 170309 
4a7f 150208 
4a83 141a06 
4a87 121804 
4a8b 1016 



4a8d 
4a8f 
4a90 
4a91 
4a92 
4a94 
4a96 
4a97 
4a98 
4a9a 



la00 
0 3 
07 
00 

f 200 
3f00 
c0 
00 

1000 
0200 



4a9c af 
4a9d 320300 
4aa0 320400 
4aa3 c3ef4a 

4aa6 318000 
4aa9 0e00 
4aab cd5a4b 
4aae cd544b 

4abl 062c 
4ab3 0e00 
4ab5 1602 



4ab7 210034 

4aba c5 
4abb d5 
4abc e5 
4abd 4a 
4abe cd924b 
4acl cl 



trans: 



boot: 



wboot : 



loadl 



disk parameter header for disk 03 
dw trans r 0000h 
dw 0000h r 0000h 
dw dirbf,dpblk 
dw chk03 f all03 



sector translate vector 



db 
db 
db 
db 
db 



23,3,9,15 
21,2 r 8,14 

20 r 26 r 6 f 12 
18,24,4,10 
16,22 



rsectors 1,2,3,4 

^sectors 5;b,7;8 

;sectors 9,10,11,12 

;sectors 13,14,15,16 

;sectors 17,18,19,20 

;sectors 21,22,23,24 

;sectors 25,26 



dpblk: ;disk parameter block, common to all disks 



dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 



26 
3 
7 
0 

242 

63 

192 

0 

16 
2 



sectors per track 
block shift factor 
block mask 
null mask 
disk size-1 
directory max 
alloc 0 
alloc 1 
check size 
track offset 



end of fixed tables 



individual subroutines to perform each function 

;simplest case is to just perform parameter initi 

xra a ?zero in the accum 

sta iobyte ;clear the iobyte 

sta cdisk ;select disk zero 

jmp gocpm ; initialize and go to cp/ 

; simplest case is to read the disk until all sect 

lxi sp,80.h ;use space below buffer f 

mvi c,0 ;select disk 0 
call seldsk 

call home ;go to track 00 

mvi b,nsects ;b counts # of sectors to 

mvi c,0 ;c has the current track 

mvi d,2 ;d has the next sector to 

note that we begin by reading track 0, sector 2 s 
contains the cold start loader, which is skipped 
lxi h,ccp ;base of cp/m (initial lo 

;load one more sector 

push b ;save sector count, current track 

push d ;save next sector to read 

push h ;save dma address 

mov c,d ;get sector address to register c 

call setsec ;set sector address from register 

pop b ; recall dma address to b,c 
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4ac2 


c5 




push 


b 


; replace on stack for later recal 


4ac3 


cdad4b 


• 


call 


setdma 


;set dma address from b,c 






• 


dr ive 


set to 0, 


track set, sector set, dma addres 


4ac6 


cdc34b 




call 


read 




4ac9 


fe00 




cpi 


00h 


;any errors? 


4acb 


c2a64a 


• 


jnz 


wboot 


;retry the entire boot if an erro 






• 


no error, move 


to next sector 


4ace 


el 




Pop 


h 


; recall dma address 


4acf 


T T iTI f% ft. 

118000 




lxi 


d, 128 


;dma=dma+128 


4ad2 


19 




dad 


d 


;new dma address is in h,l 


4ad3 


dl 




pop 


d 


; recall sector address 


4ad4 


cl 




pop 


b 


; recall number of sectors remaini 


4ad5 


05 




dcr 


b 


; sectors=sectors-l 


4ad6 


caef 4a 




jz 


gocpm 


; transfer to cp/m if all have bee 






• 


more 


sectors remain to load, check for track chan 


4ad9 


14 




inr 


d 




4ada 


7a 




mov 


a ,d 


;sector=27?, if so, change tracks 


4adb 


felb 




cpi 


27 




4add 


daba4a 


m 


jc 


loadl 


;carry generated if sector<27 






1 
m 


end of current 


track, go to next track 


4ae0 


1601 




mvi 


d,l 


;begin with first sector of next 


4ae2 


0C 


• 


inr 


c 


; track=track+l 






• 

1 


save 


register state, and change tracks 


4ae3 


c5 




push 


b 




4ae4 


d5 




push 


d 




4ae5 


e5 




push 


h 




4ae6 


cd/d4b 




call 


settrk 


;track address set from register 


4ae9 


el 




pop 


h 




4aea 


dl 




pop 


d 




4aeb 


cl 




pop 


b 




4aec 


c3ba4a 




jntp 


loadl 


;for another sector 






r 
• 


end of load operation, set parameters and go to c 






gocpm: 








4aer 


3ec3 




mvi 


a, 0c3h 


;c3 is a jmp instruction 


4afl 


320000 




sta 


0 


;for jmp to wboot 


4af4 


21034a 




lxi 


h,wboote ;wboot entry point 


4ar7 


220100 


• 


shld 


1 


;set address field for jmp at 0 


4afa 


320500 




sta 


5 


;for jmp to bdos 


4a fd 


21063c 




lxi 


h ,bdos 


;bdos entry point 


4b00 


220600 


• 


shld 


6 


;address field of jump at 5 to bd 


4b03 


018000 




lxi 


b,80h 


;default dma address is 80h 


A f% f 

4D06 


cdad4b 


• 


call 


setdma 




4 L. A A 

4b09 


f b 




ei 




;enable the interrupt system 




0 o Cl / 01 01 




Ida 


cdisk 


;get current disk number 


4b0d 


4f 




mov 


c ,a 


;send to the ccp 


4b0e 


C30034 




jmp 


ccp 


;go to cp/m for further processin 
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4bll 

4b21 3e00 
4b23 c9 



const: 



simple i/o handlers (must be filled in by user) 
in each case, the entry point is provided, with s 
to insert your own code 

;console status, return 0ffh if character ready, 
ds 10h ;space for status subroutine 

mvi a,00h 
ret 



conin: ;console character into register a 

4b24 ds 10h ; space for input routine 

4b34 e67f ani 7fh ;strip parity bit 

4b36 c9 ret 

conout: ;console character output from register c 

4b37 79 mov a,c ;get to accumulator 

4b38 ds 10h ;space for output routine 

4b48 c9 ret 



4b49 79 
4b4a c9 



4b4b af 
4b4c c9 



list: ;list character from register c 

mov a,c ;character to register a 

ret ;null subroutine 

listst: ;return list status (0 if not ready, 1 if ready) 
xra a ;0 is always ok to return 

ret 



punch: ;punch character from register c 
4b4d 79 mov a,c ;character to register a 

4b4e c9 ret ;null subroutine 



4b4f 3ela 
4b51 e67f 
4b53 c9 



4b54 0e00 
4b56 cd7d4b 
4b59 c9 



reader: ;read character into register a from reader devic 

mvi a,lah ;enter end of file for now (repla 

ani 7fh ;remember to strip parity bit 
ret 



i/o drivers for the disk follow 

for now, we will simply store the parameters away 
in the read and write subroutines 

home: ;move to the track 00 position of current drive 
; translate this call into a settrk call with param 

mvi c,0 ;select track 0 

call settrk 

ret ;we will move to 00 on first read 



seldsk: ; select disk given by register c 

4b5a 210000 lxi h,0000h ;error return code 

4b5d 79 mov a,c 

4b5e 32ef4c sta diskno 

4b61 fe04 cpi 4 ;must be between 0 and 3 
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4b63 


d0 




rnc 


; no carry if 4,5 , ... 






• 

/ 


disk 


number is in the proper range 


4b64 






ds 


10 ; space for disk select 






• 


compute proper disk parameter header address 


4b6e 


3aef 4c 




Ida 


d i s kn o 


4b71 


6f 




mo v 


l,a ;1— disk number 0,1,2,3 


4b72 


2600 




mvi 


h,0 ;high order zero 


4b74 


29 




dad 


h ;*2 


4b75 


29 




dad 


h ;*4 


4b76 


29 




dad 


h ;*8 


4b77 


29 




dad 


h ;*16 (size of each header) 


4 b 7 8 


11334a 




lxi 


d ,dpbase 


4b7b 


19 




dad 


d ;hl=.dpbase (diskno*16) 


4b7c 


c9 


• 


ret 








settrk : 


; set 


track given by register c 


4b7d 


79 




mov 


a , c 


4b7e 


32e94c 




s ta 


track 


4b81 






^ds 


10h ; space for track select 


4b91 


c9 


• 


ret 








se tsec : 


• (± f- 


QPftor nivpn hv rpai Qfpr c 

O W V» W V/ L. \A V W i 1 V 1. \^ X IJ U i- 


4b92 


79 




mov 


a , c 


4b93 


32eb4c 




sta 


sector 


4b96 






ds 


10h ;space for sector select 


4ba6 


c9 


• 


ret 








sectran 


• 










; translate the sector given by be using the 








^translate table given by de 


4ba7 


eb 




xchg 


;hl=. trans 


4ba8 


09 




dad 


b ;hl=. trans (sector) 


4ba9 


6e 




mov 


l r m ;1 = trans (sector ) 


4baa 


2600 




mvi 


h,0 ; hl= trans (sector ) 


4bac 


c9 




ret 


;with value in hi 



4bad 69 
4bae 60 
4baf 22ed4c 
4bb2 
4bc2 c9 



setdma: ;set dma address given by registers b and c 



mov 

mov 

shld 

ds 

ret 



l,c ;low order address 

h,b ;high order address 

dmaad ;save the address 

10h ; space for setting the dma addres 



4bc3 

4bd3 c3e64b 



4bd6 



read: ;perform read operation (usually this is similar 
; so we will allow space to set up read command, th 

; common code in write) 

ds 10h ;set up read command 

jmp waitio ; to perform the actual i/o 

write: ;perform a write operation 

ds 10h ;set up write commano 

waitio: ;enter here from read and write to perform the ac 
; operation. return a 00h in register a if the ope 

; properly, and 01h if an error occurs during the r 
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4be6 

4ce6 3e01 
4ce8 c9 



4ce9 
4ceb 
4ced 
4cef 



track : 
sector ; 
dmaad : 
diskno 



in this case, we have saved the disk number in 'd 

the track number in 'track' (0-76 
the sector number in 'sector* (1- 
the dma address in 'dmaad' (0-655 

ds 256 ;space reserved for i/o drivers 

mvi a,l ;error condition 

ret ;replaced when f illed-in 

the remainder of the cbios is reserved uninitiali 
data area, and does not need to be a part of the 
system memory image (the space must be available, 
however, between "begdat" and "enddat"). 



ds 
ds 
ds 
ds 



;two bytes for expansion 
; two bytes for expansion 
;direct memory address 
;disk number 0-15 





• 


scratch 


ram area 


for bdos use 




4cf 0 = 


begdat 


egu 


$ J 


beginning of data 


area 


4cf0 


d i r bf : 


ds 


128 ; 


scratch directory 


area 


4d70 


all00: 


ds 


31 ; 


allocation vector 


0 


4d8f 


all01: 


ds 


31 j 


allocation vector 


1 


4dae 


all02: 


ds 


31 j 


allocation vector 


2 


4dcd 


all03: 


ds 


31 ; 


allocation vector 


3 


4dec 


chk00 : 


ds 


16 


; check vector 0 




4dfc 


chk01: 


ds 


16 


; check vector 1 




4e0c 


chk02: 


ds 


16 


) check vector 2 




4elc 


chk03: 


ds 


16 


;check vector 3 




4e2c = 


• 

enddat 


equ 


$ ;end of data area 




013c = 


datsiz 


equ 


$-begdat; size of data area 




4e2c 




end 
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APPENDIX D: A SKELETAL GETSYS/PUTSYS PROGRAM 



combined getsys and putsys programs from Sec 4 
Start the programs at the base of the TPA 



0100 
0014 



msize 



org 
egu 



0100h 
20 



; size of cp/m in Kbytes 



; "bias" is the amount to add to addresses for > 20k 
; (referred to as "b" throughout the text) 



0000 


= 


bias 


equ 


(msize-20) *1024 




1 A ft ft 




ccp 


equ 


3400h+bias 




"5 +% 01 (A 




bdos 


equ 


ccp+0800h 




A a Ot Oi 




bios 


equ 


ccp+1600h 








• 


getsys 


programs tracks 0 and 1 to memory at 






• 


3880h 


+ bias 












register usage 












a 


(scratch register) 










b 


track count (0...76) 










c 


sector count (1 . , 


,.26) 










d r e 


(scratch register pair) 










h r l 


load address 












sp 


set to stack address 






gstart: 






start of getsys 


0100 


318033 






lxi 


sp r ccp-0080h ; 


• convenient plac 


Oi 1 Oi "5 
vivo 


O 1 Q Oi 1 1 






lxi 


h r ccp-0080h j 


set initial loa 


Oi 1 Cl£ 
v JL v 0 


B O 10 10 






mvi 


b,0 ; 


start with trac 






rd$trk: 






read next track 


0108 


0e01 






mvi 


C,l j 


• each track star 






rd$sec: 








010a 


cd0003 






call 


read$sec ; 


• get the next se 


010d 


118000 






lxi 


d r 128 ; 


• offset by one s 


0110 


19 






dad 


d ; 


(hl=hl+128) 


0111 


0 c 






inr 


c 


• f next sector 


0112 


79 






mov 


a,c J 


; fetch sector nu 


0113 


felb 






cpi 


27 


; and see if la 


0115 


da0a01 






jc 


rdsec 


; <, do one more 






; arrive here 


at end of track, move to next track 


0118 


04 






inr 


b 


? track = track+1 


0119 


78 






mov 


a, b 


? check for last 


011a 


fe02 






cpi 


2 


track = 2 ? 


011c 


da0801 






jc 


rd$trk 


; <, do another 



011f fb 
0120 76 



; arrive here at end of load, halt for lack of anything b 

ei 
hit 
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putsys program, places memory image starting at 

3880h + bias back to tracks 0 and 1 

start this program at the next page boundary 



0200 



org 



($+0100h) and 0ff00h 



put$sys 



n o n (X 
0 200 


318033 




lxi sp,ccp-0080h 


0203 


218033 




lxi h r ccp-0080h 


0206 


0600 




mvi b,0 






wr $trk : 


0208 


0e01 




mvi c,l 






wr$sec: 


0 20a 


cd0004 




call write$sec 


Oi O (A A 


1 1 OfllfllAI 
1 10000 




lxi d,128 


0210 


19 




A -» A A 

dad d 


0211 


0c 




inr c 


0212 


79 




mov a r c 


0213 


felb 




cpi 27 


V £. ± D 


a aid at) z 




jc wr$sec 






• 

r 


CIL L 1VC HCLC d U CllU Ui. L.I.CII'In, lllVJVC UVJ 


0218 


04 




inr b 


0219 


78 




mov a , b 


021a 


fe02 




cpi 2 


021c 


da0802 




jc wr$trk 






m 

1 


done with putsys, halt for lack 


021f 


fb 




ei 


0220 


76 




hit 






• 


user supplied subroutines for sector 






• 


move to next page boundary 


0300 






org ($+0100h) and 0ff00h 



convenient plac 
start of dump 
start with trac 

start with sect 

write one secto 
length of each 
<hl>=<hl> + 128 
<c> = <c> + 1 
see if 

past end of t 
no, do another 



track = track+1 
see if 

last track 
no, do another 



read$sec 



read the next sector 
track in <b> , 
sector in <c> 
dmaaddr in <hl> 



0300 c5 

0301 e5 



0302 



push 
push 



b 
h 



; user defined read operation goes here 
ds 64 



0342 el 

0343 cl 



pop 
Pop 



h 
b 
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0344 c9 



ret 



0400 



0400 c5 

0401 e5 



0402 

0442 el 

0 443 Gl 

0444 c9 



0445 



org ($+0100h) and 0ff00h 

write$sec: 

; same parameters as read$sec 



push 
push 



user defined write operation goes here 
ds 64 



pop 
pop 
ret 



end of getsys/putsys program 
end 



another page bo 
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APPENDIX E: A SKELETAL COLD START LOADER 



this is a sample cold start loader which, when modified 
resides on track 00, sector 01 (the first sector on the 
diskette) . we assume that the controller has loaded 
this sector into memory upon system start-up (this pro- 
gram can be keyed-in, or can exist in read/only memory 
beyond the address space of the cp/m version you are 
running) . the cold start loader brings the cp/m system 
into memory at "loadp" (3400h + "bias 1 '). in a 20k 
memory system, the value of "bias" is 0000h r with large 
values for increased memory sizes (see section 2) . afte 
loading the cp/m system, the clod start loader branches 
to the "boot" entry point of the bios, which begins at 
"bios" + "bias." the cold start loader is not used un- 
til the system is powered up again, as long as the bios 
is not overwritten. the origin is assumed at 0000h, an 
must be changed if the controller brings the cold start 
loader into another area, or if a read/only memory area 
is used. 



0000 






org 


0 


base of ram in cp/m 


0014 




msize 


equ 


20 


min mem size in kbytes 


0000 




bias 


egu 


(msize-20) *1024 ; 


offset from 20k system 


3400 




ccp 


equ 


3400h+bias 


base of the ccp 


4a00 




bios 


equ 


ccp+1600h ; 


base of the bios 


0300 




biosl 


equ 


0300h 


length of the bios 


4a00 




boot 


equ 


bios 




1900 




size 


equ 


bios+biosl-ccp ; 


size of cp/m system 


0032 




sects 


equ 


size/128 ; 


# of sectors to load 






r 


begin 


the load operation 








cold: 








0000 


010200 




lxi 


b,2 ; 


b=0 , c=sector 2 


0003 


1632 




mvi 


d, sects ; 


d=# sectors to load 


0005 


210034 




lxi 


h,ccp 


base transfer address 






lsect: 


; load 


the next sector 





insert inline code at this point to 
read one 128 byte sector from the 
track given in register b, sector 
given in register c, 
into the address given by <hl> 

branch to location "cold" if a read error occurs 
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************* * * * * ******************************** 
* 

* user supplied read operation goes here... 

* 

************************************************* 



0008 c36b00 
000b 



jmp past$patch 
ds" 60h 



remove this when patche 



006b 15 
006c ca004a 



past$patch: 

; go to next sector if load is incomplete 

dcr d ; sects=sects-l 

jz boot ; head for the bios 

more sectors to load 

we aren't using a stack r so use <sp> as scratch registe 
to hold the load address increment 



006f 318000 

0072 39 

0073 0c 

0074 79 

0075 felb 
0077 da0800 



lxi 
dad 

inr 
mov 
cpi 
jc 



sp, 128 
sp 

c 

a, c 

27 

lsect 



; 128 bytes per sector 

; <hl> = <hl> + 128 

; sector = sector + 1 

; last sector of track? 

; no, go read another 



; end of track, increment to next track 



007a 0e01 

007c 04 

007d C30800 
0080 



mvi 
inr 
jmp 
end 



c,l 

b 

lsect 



sector = 1 
track = track + 1 
for another group 
of boot loader 
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APPENDIX F: CP/M DISK DEFINITION LIBRARY 



1: ; CP/M 2.0 disk re-definition library 

2: ; 

3: ; Copyright (c) 1979 

4: ; Digital Rstearch 

5: ; Box 579 

6: ; Pacific Grove, CA 

7: ; 93950 

8: ; 

9: ; CP/M logical disk drives are defined using the 

10: ; macros given below, where the sequence of calls 

11: ; is: 

12: ; 

13: ; disks a 

14: ; diskdef par ameter-list-0 

15: ; diskdef par ameter-list-1 

16: ; 

17: ; diskdef parameter-list-n 

18: ; endef 

19: ; 

20: ; where n is the number of logical disk drives attached 

21: ; to the CP/M system, and parameter-list-i defines the 

22: ; characteristics of the ith drive ' (i-0 ,1, ... ,n-i) 

23: ; 

24: ; each parameter-list-i takes the form 

25: ; dn, f sc , lsc , [ skf ] , bis , dks f dir r cks , of s , [0 ] 

26: ; where 

27: ; dn is the disk number 0,1,..., n-1 

28: ; fsc is tae first sector number (usually 0 or 1) 

29: ; lsc is the last sector number on a track 

30: ; skf is optional "skew factor" for sector translate 

31: ; bis is tne data block size (1024 , 2048 ,16384) 

32: ; dks is tne disk size in bis increments (word) 

33: ; dir is tne: number of directory elements (word) 

34: ; cks is the number of dir elements to checksum 

35: ; ofs is the number of tracks to skip (word) 

36: ; [0] is an optional 0 which forces l6K/directory en 

37: ; 

38: ; for convenience, the form 

39: ; dn,dm 

40: ; defines disk dn as having the same characteristics as 

41: ; a previously defined disk dm. 

42: ; 

43: ; a standard four drive CP/M system is defined by 

44: ; disks 4 

45: ; diskdef 0,1,26,6,1024,243,64,64,2 

46: ; dsk set 0 

47: ; rept 3 

48: ; dsk set dsk+1 

49: ; diskdef %dsk,0 

50: ; endm 

51: ; endef 

52: ; 

53: ; the value of "begdat" at the end of assembly defines t 
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c; A • 




beginning of the uninitialize ram area above the bios, 


dd: 




while 


the value of "enddat" defines the next location 


C L. . 

o d : 




following the end of the data area. the size of this 


K "7 . 
0/1 


| 


area is given by the value of "datsiz" at the end of t 


CO. 

DO. 




assembly, note that the allocation vector will be qui 


s Q • 
35 ! 


( 


large 


if a large disk size is defined with a small bio 


D lo • 


I 


size. 




1 • 

U X • 








6 9 • 


c; if hH T 

vi O l\ 1 1*J X. 




U 11 


D J • 


7 7 


define 


a single disk header list 




U[Jca UI1 . 


dw 


xlt&dn, 0000n ; translate table 


D J. 




dw 


0000h r 0000h ;scratch area 


Q O . 




dw 


dirbuf , dpb&dn ;dir buff,parm block 


6 7 • 

\J 1 m 




dw 


csv&dn, alv&dn ;check, alloc vectors 


ft ft * 




endm 




G> Q • 
O .7 • 


7 






7 ft • 


1 c 1/ c 
Ulol\b 


macro 


nd 




7 7 


define 


nd disks 


// ZZ 


ndisks 


set 


nd 7 7 for later reference 


"7 "3 . 


dpbase 


equ 


$ ;base of disk parameter blocks 


/ 4 : 


7 7 


generate the nd elements 




US Kil X L. 


set 


0 


7 • 




rept 


nd 


7 7 • 




dskhdr 


%dsknxt 


1 ft • 


Ub Nil XL 


set 


dsknxc+1 


7 9 • 
i y » 




endm 




ft • 




endm 




ft 1 • 

O J. . 


7 






ft 9 • 


/~\ y~\ V~\ i"i V- 

ujjDnu j. 


macro 


dn 


ft "3 . 


apDaun 


equ 


$ ;disk parm block 


o 4 : 




endm 




O D : 


7 






ft • 
O D . 


uuu 


macro 


data, comment 


ft 7 • 

o / : 


7 7 


define 


a db statement 


ft ft • 




db 


data comment 


ft Q . 




endm 




9 0 • 


• 






91 • 


ddw 

\A\ATI 


macro 


data, comment 


92 • 


« • 

t r 


define 


a dw statement 


9 ^ • 




dw 


data comment 


9 4 • 




endm 




Q C. . 
.7 J • 


7 






9 £ • 


<-~f /-i /-3 


macro 


m,n 


Q 7 • 




greatest common divisor of m,n 


9ft • 




produces value qcdn as result 


9 9 • 




(used 


in sector translate table generation) 


x iy xi • 


n c rim 
y ^ vim 


set 


m ;;variable for m 


x v x : 


9 cdn 


set 


n ;;variable for n 


TWO. 

Do Zl 


gcdr 


set 


0 ' ; ;variable for r 


103: 




rept 


65535 


104: 


gcdx 


set 


gcdm/gcdn 


105: 


gcdr 


set 


gcdm - gcdx*gcdn 


106: 




if 


gcdr =0 


107: 




exitm 




108: 




endif 
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109 


: gcdm 


set 


gcdn 




110: 


: gcdn 


set 


gcdr 




111: 




endm 






112: 




endm 
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114 


: diskdef 


macro 


dn r f sc f lsc ,skf ,bls ,dks' r dir , cks r bf s, kl6 


115: 


• • 


generate the set 


statements for later tables 


116: 




if 


nul lsc 




117: 


m • 

/ 1 


current 


disk dn s=ime as previous fsc 


118: 


dpb&dn 


equ 


dpb&fsc ; 


equivalent parameters 


119: 


als&dn 


equ 


als&fsc ; 


same allocation vector size 


120: 


css&dn 


equ 


css&fsc J 


same checksum vector size 


121: 


. xlt&dn 


equ 


xlt&f sc 


;same translate table 


122: 




else 






123: 


: secmax 


set 


lsc- (fsc) 


;;sectors 0... secmax 


124 


: sectors 


set 


secmax+1 ; ;number of sectors 


125 


: als&dn 


set 


(dks)/8 , 


■;size of allocation vector 


126 




if 


( (dks) mod t») ne 0 


127 


: als&dn 


set 


als&dn+l 




128' 




endif 






129: 


css&dn 


set 


(cks)/4 , 


•;number of checksum elements 


130 


» • • 


generate the block shift value 


131: 


blkval 


set 


bls/128 


; ;number of sectors/block 


132 


: blkshf 


set 


0 


;;counts right 0's in blkval 


133 


: blkmsk 


set 


0 


;;£ills with l's from right 


134 




rept 


16 


; ;once for each bit position 


135 




if" 


blkval=l 




136 




exi tm 






137 




endif 






138 


> • • 


otherwise, high order 1 not found yet 


139 


: blkshf 


set 


blkshf+1 




140 


: blkmsk 


set 


(blkmsk shl 1) or 1 


141: 


blkval 


set 


blkval/2 




142: 




endm 






143: 




generate the extent mask byte 


144: 


blkval 


set 


bls/1024 


;;number of kilobytes/bl 


145 


: extmsk 


set 


0 ;;fiil from right with l's 


146 




rept 


16 




147 




if 


blkval=l 




148 




exi tm 






149 




endif 






150 


» • • 


otherwise more to shift 


151: 


, extmsk 


set 


(extmsk shl 1) or 1 


152 


: blkval 


set 


blkval/2 




153 




endm 






154 


• • • 

• / / 


may be 


double byte allocation 


155 




if 


(dks) > 256 


156 


: extmsk 


set 


(extmsk shr 1) 


157 




endif 






158 


• 7 7 


may be 


optional 


[0] in last position 


159 




if 


not nul kl6 


160 


: extmsk 


set 


kl6 




161 




endif 






162 


» • • 

• ii 


now generate directory reservation bit vector 


163 


: dirrem 


set 


dir 


remaining to process 



63 



164: 


: d i r bk s 


set 


bls/32 ;;nuiuber of entries per block 


165; 


dirblk 


set 


0 ;; fill with 1 1 s on each loop 


166: 




rept 


16 


167: 




if 


dir rem=0 


168: 




exitm 




169 




endif 




170' 


» • • 


not complete, iterate once again 


171: 


• • 


shift 


right and add 1 high order bit 


172: 


dirblk 


set 


(dirblk shr i) or 8000h 


173: 




if 


dir rem > dirbks 


174: 


dir rem 


set 


dir rem-dirbks 


175: 




else 




176: 


d i r r em 


set 


0 


177: 




endif 




178: 




endm 




179: 




dpbhdr 


dn ; ;ganerate equ $ 


180: 




ddw 


%sectors r < ; sec per track> 


181: 




ddb 


%blkshf , <;blcck shift> 


182: 




ddb 


%blkmsk ,<; block mask> 


183: 




ddb 


%extmsk , < ; ext nt mask> 


184: 




ddw 


% (dks)-l ,<;aisk size-l> 


185 




ddw 


% (dir) -1 , < ;airectory max) 


186: 




ddb 


%dirblk shr 8,<;alloc0> 


187: 




ddb 


%dirblk ana 0f f h, < ; alloclX 


188: 




ddw 


% (cks) /4 ,< ; check size> 


189: 




ddw 


%of s , < ; of f set> 


190: 


• • 


generate the translate table, if requested 


191: 




if 


nul skf 


192: 


xlt&dn 


equ 


0 ;no xlate table 


193: 




else 




194: 




if 


skf = 0 


195- 


. xlt&dn 


equ 


0 ;no xlate table 


196 




else 




197- 




generate the translate taole 


198: 


nxtsec 


set 


0 ;;next sector to fill 


199 


: nxtbas 


set 


0 ;;mcves by one on overflow 


200 




gcd 


%sectors r skf 


201: 


r 7 


gcdn = 


gcd (sectors, skew) 


202 


i neltst 


set 


sectors/gcdn 


203 


» • • 

» r i 


neltst 


is number of elements to generate 


204 


» • • 

• r r 


before 


we overlap previous elements 


205: 


: nelts 


set 


neltst ;; counter 


206: 


xlt&dn 


equ 


$ ; translate table 


207 




rept 


sectors ; ;once for each sector 


208: 




if" 


sectors < 256 


209 




ddb 


%nxtsec+ (f sc) 


210, 




else 




211: 




ddw 


%nxtsec+ ( f sc) 


212 




endif 




213 


: nxtsec 


set 


nxtsec+(skf) 


214, 




if 


nxtsec >= sectors 


215 


: nxtsec 


set 


nxtsec-sectors 


216 




endif 




217 


: nelts 


set 


nelts-1 


218 




if 


nelts =0 
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219 


: nxtbas 


set 


nxtbas+i 


220 


: nxtsec 


set 


nxtbas 


221: 


: nelts 


set 


neltst 


222 




endif 




223 




endm 




224 




endif 


;;end of nul fac test 


225 




endif 


; ;end of nul bis test 


226 




endm 




227 : 


• 






228 : 


defds 


macro 


lab, space 


229 : 


lab: 


ds 


space 


230 : 




endm 




231: 


7 






232: 


Ids 


macro 


lb f dn,val 


2 33 : 




defds 


lb&dn, %val&dn 


234 : 




endm 




235 : 


• 






236: 


endef 


macro 




237: 


• • 

/ r 


generate the necessary ram data areas 


238: 


begdat 


equ 


$ 


239 : 


d i r bu f : 


ds 


128 ;directory access buffer 


240 : 


dsknxt 


set 


0 


241: 




rept 


ndisks ; ;once for eacn disk 


242: 




Ids 


alv, %dsknxt ,als 


243: 




Ids 


csv t % dsknxt , ess 


244: 


dsknxt 


set 


dsknxt+1 


245: 




endm 




246: 


enddat 


equ 


$ 


247: 


datsiz 


equ 


$-begdat 


248: 


• • 


db 0 at 


this point forces hex record 


249: 




endm 
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APPENDIX G: BLOCKING AND DEBLOCKING ALGORITHMS 



************ * * ****************** * * ****** * * * ********** 

* * 

* Sector Deblocking Algorithms for CP/M 2.0 * 

* * 

****** * * *************** * * * * ********** * * * * ************ 



7 : 






utility macro to compute 


sector mask 


8 : 


smask 


macro 


hblk 






9 : 


• • 


compute log2(hblk) r 


return @x as result 


10 : 


7 7 


(2 ** 


@x = hblk on 


return) 


11: 


<§y 


set 


hblk 






12: 


@x 


set 


0 






13: 


- • • 
9 9 


count 


right shifts 


of @y 


until = 1 


14: 






rept 


8 






15 : 






if 


<§y = 1 






1 6 : 






exi tm 








17 : 






end if 








18: 


• • 

9 9 


@y is 


not 1, shift 


right 


one position 


19 : 




set 


@y shr 1 






20 : 


@x 


set 


@x + 1 






21 : 






endm 








22: 






endm 








23 : 














24 : 




.***************************************************** 


25 : 




. * 








* 






. * 


CP/M to host disk constants * 


27: 




. * 








* 


28: 




, * * * * * ********* * * *********** * * * * * ******** * * *********** 


29: 


blksiz 


equ 


2048 




CP/M allocation size 


30: 


hstsiz 


egu 


512 




host disk sector size 


31: 


hstspt 


equ 


20 




•host disk sectors/trk 


32: 


: hstblk 


equ 


hstsiz/128 




CP/M sects/host buff 


33: 


: cpmspt 


equ 


hstblk * hstspt j 


•CP/M sectors/track 


34' 


: seems k 


equ 


hstblk-1 




sector mask 


35 






smask 


hstblk 




^compute sector mask 


36 


: secshf 


equ 


@x 




;log2 (hstblk) 



*************************** * * * * * * * * * ***************** 

* * 

* BDOS constants on entry to write * 

* * 

***************************************************** 

wrall equ 0 ;write to allocated 

wrdir equ 1 ;write to directory 

wrual equ 2 ;wr ite to unallocated 

***************************************************** 

* * 

* The BDOS entry points given below show the * 

* code which is relevant to deblocking only. * 

* * 

***************************************************** 
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54: ; DISKDEF macro, or hand coded tables go here 

55: dpbase egu $ ;disk param block base 

56: ; 

57: boot: 

58: wboot: 

59: ;enter here on system boot to initialize 

60: xra a ;0 to accumulator 

61: sta hstact ;host buffer inactive 

62: sta unacnt ;clear unalloc count 

63: ret 

64: ; 

65: seldsk: 

66: ;select disk 

67: mov a,c ; selected disk number 

68: sta sekdsk ;seek disk number 

69: mov l r a ;disk number to HL 

70: mvi h,0 

71: rept 4 ;multiply by 16 

72: dad h 

73: endm 

74: lxi d, dpbase ;base of parm block 

75: dad d ;hl=.dpb (curdsk) 

76: ret 

77: ; 

78 : settrk : 

79: ;set track given by registers BC 

80: mov h r b 

81: mov l,c 

82: shld sektrk ;track to seek 

83: ret 

84: ; 

85: setsec: 

86: ;set sector given by register c 

87: mov a r c 

88: sta seksec ;sector to seek 

89: ret 

90: ; 

91: setdma: 

92: ;set dma address given by BC 

93: mov h,b 

94: mov l,c 

95: shld dmaadr 

96: ret 

97: ; 

98: sectran: 

99: ; translate sector number BC 

100: mov h f b 

101: mov 1 ,c 

102: ret 

103: ; 
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104: 


.***************************************************** 


105: 


• * 






* 


106: 


. * 


The READ entry point 


takes the place of * 


107: 




the previous BIOS defintion for READ. * 


108: 


. * 






* 


109: 


************************************************* 


110: 


read: 








111: 




; read 


the selected CP/M sector 


112: 




mvi 


a,l 




113: 




sta 


readop 


;read operation 


114: 




sta 


rsflag 


;must read data 


115: 




mvi 


a , wrual 




116: 




sta 


wr type 


;treat as unalloc 


117: 




jmp 


rwoper 


;to perform the read 


118 : 










119 : 


****************************************************** 


120: 


. * 






* 


121: 


. * 


The WRITE entry point 


takes the place of * 


122: 


. * 


the previous BIOS defintion for WRITE. * 


123: 


. * 






* 


124: 


****************************************************** 


125: 


wr ite : 








126: 




; wr ite 


the selected CP/M sector 


127: 




xr a 


a 


;0 to accumulator 


128: 




sta 


readop 


;not a read operation 


129 : 




RIOV 


a f c 


; write type in c 


130: 




sta 


wr type 




131: 




cpi 


wrual 


; write unallocated? 


132: 




jnz 


chkuna 


;check for unalloc 


133: 


• 






134: 




wr ite 


to unallocated. 


set parameters 


135: 




mvi 


a,blksiz/128 


;next unalloc recs 


136: 




sta 


unacnt 




137: 




Ida 


sekdsk 


;disk to seek 


138: 




sta 


unadsk 


junadsk = sekdsk 


139: 




lhld 


sektrk 




140: 




shld 


unatrk 


;unatrk = sectrk 


141: 




Ida 


seksec 




142: 




sta 


unasec 


;unasec = seksec 


143: 


• 








144: 


chkuna : 








145: 




;check 


for write to unallocated sector 


146: 




Ida 


unacnt 


;any unalloc remain? 


147: 




ora 


a 




148: 




jz 


alloc 


;skip if not 


149: 


• 






150: 


• 


more unallocated records remain 


151: 




dcr 


a 


; unacnt = unacnt-1 


152: 




sta 


unacnt 




153: 




Ida 


sekdsk 


;same disk? 


154: 




lxi 


h f unadsk 




155: 




cmp 


m 


; sekdsk = unadsk? 


156: 




jnz 


alloc 


;skip if not 


157: 


• 








158: 


• 


disks 


are the same 
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159: 






lxi 


h, unatrk 




160: 






call 


sektrkcmp 


ysektrk = unatrk? 


161: 






jnz 


alloc 


;skip if not 


162: 


• 








163: 




■ 


tracks 


are the same 




164 






Ida 


seksec 


;same sector? 


165 






lxi 


h , unasec 




166 






cmp 


m 


; seksec = unasec? 


167 






jnz 


alloc 


;skip if not 


168: 


J 


ft 








169 


> 
► 


ft 

r 


match, 


move to next 


sector for future ref 


170: 






inr 


m 


; unasec = unasec+1 


171: 






mov 


a r m 


;end of track? 


172: 






cpi 


cpmspt 


;count CP/M sectors 


173: 






jc 


noovf 


;skip if no overflow 


174: 


• 






175: 


• 

/ 


overflow to next track 


176: 






mvi 


m, 0 


;unasec = 0 


177: 






lhld 


unatrk 




178: 






inx 


h 




179: 






shld 


unatrk 


;unatrk = unatrk+1 


180: 


J 










181: 


noovf : 








182: 






;match 


found, mark as unnecessary read 


183: 






xra 


a 


;0 to accumulator 


184: 






sta 


rsflag 


; rsflag = 0 


185: 






jmp 


rwoper 


;to perform the write 


186. 


* 

j 


> 








187 


: alloc: 








188: 






;not an unallocated 


record, requires pre-read 


189: 






xra 


a 


;0 to accum 


190 






sta 


unacnt 


; unacnt = 0 


191 






inr 


a 


;1 to accum 


192' 






sta 


rsflag 


; rsflag = 1 


193 












194 




.********************************* 


19 5 




. * 






* 


196 






Common 


code for READ 


and WRITE follows * 


197 










* 


198: 




***************************************************** 


199: 


■ rwoper: 








200: 






; enter 


here to perform the read/write 


201: 






xra 


a 


;zero to accum 


202: 






sta 


erf lag 


;no errors (yet) 


203: 






Ida 


seksec 


; compute host sector 


204: 






rept 


secshf 




205: 






ora 


a 


;carry = 0 


206: 






rar 




;shift right 


207: 






endm 






208: 






sta 


sekhst 


;host sector to seek 


209: 












210: 


1 4 
* i 




active 


host sector? 




211: 






lxi 


h ,hstact 


;host active flag 


212: 






mov 


a,m 




213: 






mvi 


m, 1 


/always becomes 1 
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214: 




or a 


a 




;was it already? 


215: 




jz 


f ilhst 




;.fill host if not 


216: 


7 








217: 




host 


buffer active, same as seek buffer? 


218: 




Ida 


sekdsk 






219: 




lxi 


h , hstdsk 




;same disk? 


220: 




cmp 


m 




;sekdsk = hstdsk? 


221: 




jnz 


nomatch 






222: 


• 










223: 


• 


same 


disk, same track? 




224: 




lxi 


h,hsttrk 






225: 




call 


sek trkcmp 




;sektrk = hsttrk? 


226: 




jnz 


nomatch 






227: 


• 

i 










228: 




same 


disk, same track. 


same buffer? 


229 : 




Ida 


sekhst 






230: 




lxi 


h,hstsec 




; sekhst = hstsec? 


231: 




cmp 


m 






232: 




jz 


match 




;skip if match 


233: 


• 










234: 


nomatch 










235: 




;proper disk, but 


not 


correct sector 


236: 




Ida 


hstwr t 




;host written? 


237: 




ora 


a 






238: 




cnz 


wr itehst 




;clear host buff 


239: 












240: 


f ilhst: 










241: 




;may 


have to fill 


the 


host buffer 


242: 




Ida 


sekdsk 






243: 




sta 


hstdsk 






244: 




lhld 


sek trk 






245: 




shld 


hsttrk 






246: 




Ida 


sekhst 






247: 




sta 


hstsec 






248: 




Ida 


r sflag 




;need to read? 


249: 




ora 


a 






250: 




cnz 


readhst 




;yes, if 1 


251: 




xra 


a 




;0 to accum 


252: 




sta 


hstwr t 




;no pending write 


253: 












254 


i match: 










255 




;copy data to or 


from 


buffer 


256 




Ida 


seksec 




;mask buffer number 


257 




ani 


secmsk 




;least signif bits 


258 




mov 


Ira 




;ready to shift 


259 




mvi 


h,0 




;double count 


260 




rept 


7 




;shift left 7 


261 




dad 


h 






262 




endm 








263 




hi has relative host buffer address 


264 




lxi 


d ,hstbuf 






265 




dad 


d 




;hl = host address 


266 




xchg 






;now in DE 


267 




lhld 


dmaadr 




;get/put CP/M data 


268 




mvi 


c,128 




; length of move 
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269: 




Ida 


readop ;which way? 


270: 




or a 


a 


271: 




jnz 


rwmove ;skip if read 


272: 


i 






273: 


• 


wr ite 


operation, mark and switch direction 


274: 




mvi 


a,l 


275 




sta 


hstwrt ;hstwrt = 1 


276 




xchg 


;source/dest swap 


277 


» i 




278 


\ rwmove : 




279 




;C initially 128, DE is source, HL is dest 


280 




ldax 


d ;source character 


281: 




inx 


d 


282 




mov 


m,a ;to dest 


283 




inx 


h 


284: 




dcr 


c ;loop 128 times 


285: 




jnz 


rwmove 


286. 






287: 


: ; data 


has been moved to/from host buffer 


288' 




Ida 


wrtype ;write type 


289 




cpi 


wrdir ; to directory? 


290 




Ida 


erflag ;in case of errors 


291 




rnz 


;no further processing 


292 


» 4 
» 1 






293 


» 4 
» 1 


clear 


host buffer for directory write 


294 




ora 


a ;errors? 


295 




rnz 


;skip if so 


296 




xra 


a ; 0 to accum 


297 




sta 


hstwrt ;buffer written 


298 




call 


wr itehst 


299 




Ida 


e r f 1 ag 


300 




ret 




301 








302 




, ***************^ 


303 






* 


304 




• * Utility subroutine for 16-bit compare * 


305 






* 


306 






307 


: sektrkcmp: 




308 




; HL = 


.unatrk or .hsttrk, compare with sektrk 


309 




xchg 




310 




lxi 


h , sektrk 


311 




ldax 


d ;low byte compare 


312 




cmp 


m ;same? 


313 




rnz 


;return if not 


314 


: ; low bytes equal, test high Is 


315 




inx 


d 


316 




inx 


h 


317 




ldax 


d 


318 




cmp 


m ;sets flags 


319 




ret 




320 
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************************************************ 

* * 

* WRITEHST performs the physical write to * 

* the host disk, READHST reads the physical * 

* d i s k . * 

* * 

***************************************************** 
writehst: 

jhstdsk = host disk # r hsttrk - host track #, 
;hstsec = host sect #. write "hstsiz" bytes 
;from hstbuf and return error flag in erf lag. 
; return erf lag non-zero if error 
ret 

readhst: 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. read "hstsiz" bytes 
;into hstbuf and return error flag in erflag. 
ret 

***************************************************** 

* * 

* Unitialized RAM data areas * 

* * 

******************************* ********************** 



347: 


sekdsk: 


ds 


1 


;seek disk number 


348: 


sektrk : 


ds 


2 


;seek track number 


349: 


seksec: 


ds 


1 


;seek sector number 


350: 


7 








351: 


hstdsk: 


ds 


1 


;host disk number 


352: 


hsttrk : 


ds 


2 


;host track number 


353: 


hstsec: 


ds 


1 


;host sector number 


354 


• 








355 


: sekhst: 


ds 


1 


;seek shr secshf 


356 


: hstact: 


ds 


1 


;host active flag 


357. 


: hstwrt: 


ds 


1 


;host written flag 


358 


► • 

> t 








359 


: unacnt: 


ds 


1 


;unalloc rec cnt 


360« 


: unadsk: 


ds 


1 


;last unalloc disk 


361: 


unatrk : 


ds 


2 


;last unalloc track 


362: 


unasec: 


ds 


1 


;last unalloc sector 


363: 


i 








364 


: erflag: 


ds 


1 


;error reporting 


365 


: rsflag: 


ds 


1 


;read sector flag 


366 


: readop: 


ds 


1 


?1 if read operation 


367 


: wrtype: 


ds 


1 


; write operation type 


368 


: dmaadr: 


ds 


2 


;last dma address 


369 


: hstbuf: 


ds 


hstsiz 


;host buffer 


370 


• / 
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371: • ***************************************************** 
37 2:;* * 
373: ;* The ENDEF macro invocation goes here * 

3 74:;* * 
375. . ********************************* 

376: end 



73 



